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SEU 5 



1.0 



INTRODUCTION 



THIS IS AN XXDP* DRS COMPATIBLE DIAGNOSTIC TEST PROGRAM FOR THE 
TR79f MAGNETIC TAPE TRANSPORT AND CONTROL UNIT. IT IS DESIGNED 
FOR USE ON A PDP-11/70 yiTH XXDP* VI. 1. THE TESTS IN THIS PROGRAM 
ARE MODIFIED VERSIONS OF THE TESTS IN THE DIAGNOSTIC PROGRAM CZTRA8. 
IN THIS PROGRAM TEST1 IS A NULL TEST WITH NO FUNCTION. 
TESTS 2.3,4 AND 5 ARE BASED ON TESTS 2,3.4 AND 5 IN CZTRA8. 
TEST6, THE TEST OF OPERATOR INTERVENTION FUNCTIONS. IS BASED ON 
TEST1 IN CZTRAB. 



2.0 



HARDWARE REQUIREMENTS 



THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE TR79F NAG 
TAPE DIAGNOSTIC. 

PDP-11/70 
16K MEMORY 
CONSOLE TERMINAL 

TR79F MAGNETIC TAPE TRANSPORT AND CONTROL UNIT 



3.0 



OPERATING INSTRUCTIONS 



THIS PROGRAM MAY BE LOADED UNDER XXDP* FROM ANY XXDP* MEDIA. 

IT IS DESIGNED TO RUN WITH UOP* DRS (DIAGNOSTIC RUN TIME SERVICES), 

USING XXOP+ VI. 1. 

TO EXECUTE THIS DIAGNOSTIC STANDALONE UNDER XXDP^ VI. 1 PROCEED 
AS FOLLOWS. 

A. LOAD AND START THE DIAGNOSTIC USING THE RUN COMMAND. 

B. WAIT FOR THE RUN TIME SERVICES PROMPT DR> 

C. TYPE IN START<CR> 

D. ANSWER HARDWARE AND SOFTWARE QUESTIONS. 

E. RESPOND TO REQUESTS TO PERFORM TR79F MANUAL OPERATIONS. 

F. END OF PASS AND ERROR REPORTS WILL PRINT ON THE SYSTEM CONSOLE. 

G. TO END PROGRAM EXECUTION TYPE IN CTRL/C. 



E 1 
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97 

98 

99 
100 
101 
102 
103 
104 



121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
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SEO 4 



4.0 



DEVICE INFORMATION TABLES 



;//////////////////////////////////// 
COMMAND REGISTER BIT DEFINITIONS 
;/////////////////////////////////// 



105 


GOBIT 


= BITO 


106 


FNBOO 


= BIT1 


107 


FNB01 


= BIT2 


108 


FNB02 


= BIT3 


109 


FN803 


= 0IT4 


110 


BUSY 


= BITS 


111 


INTEN8 


= BIT6 


112 


CURDY 


= BIT7 


113 


SBIT8 


= BITS 


114 


SBIT9 


= BIT9 


115 


MTRDY 


= BIT10 


116 


PURCLR 


= BIT11 


117 


XBA16 


= BIT12 


118 


XBA17 


= BIT13 


119 


ILCMD 


= BIT14 


120 


ERRBIT 


- BIT15 



GOBIT = 1 INITIATE TAPE OPERATION 
FBN03-FBN00 VALUE SPECIFIES TAPE FUNCTION 



TR79F OPERATION IN PROGRESS 
INTENB = 1 TR79 INTERRUPT ENABLE ASSERTED 
CURDY = 1 TR79F CONTROL UNIT READY 
SBIT8-9 VALUE SPECIFIES UNIT 

MTRDY = 1 TR79F TRANSPORT READY 

PWRCLR • 1 INITIATE TR79F POWER CLEAR OPERATION 

EXTENDED UNIBUS ADDRESS BIT 16 

EXTENDED UBIBUS ADDRESS BIT 17 

ILLEGAL TR79F COWANO ATTEMPTED ERROR INDICATOR 

TR79F ERROR COMDITION DETECTED INDICATOR 



;////////////////////////////////////////// 
:TR79 STATUS REGISTER BIT DEFINITIONS 
;///////////////////////////////////////// 



INH6T 




BITO 


;INH6T = 1 TR79F OPERATION INHIBITED 


RUDS 




BIT1 


;RUDS : 1 REWIND IN PROGRESS 


FPTS 




BIT2 


;FPTS s 1 WRITE ENABLE RING NOT INSTALLED 


EOFF 




BIT3 


•EOFF = 1 TAPE MARK DETECTED ON READ OR WRITE 


I DBF 




BIT4 


•IDBF = 1 IDENTIFICATION BURST DETECTED ON READ OR WRITE 


LDPTS 




BITS 


■LDPTS = 1 TAPE AT LOAD POINT 


NXMF 




BIT6 


-NXMF = 1 TR79F BUS ADDRESS REGISTER REFERENCES NON-EXISTENT HEM 


EOTS 




BIT7 


EOTS = 1 END OF TAPE REFLECTOR DETECTED 


TMOUT 




BITS 


•TMOUT = 1 TR79F OPERATION NOT COMPLETED IN TIME ALLOWED 


RDCNT 




BIT9 


RDCNT ' 1 BYTES READ NOT EQUAL COUNT IN WORD COUNT REGISTER 


ONLNS 




8IT10 


•ONLNS - 1 TR79F TRANSPORT IS ON-LINE 


BGL 




BIT11 


BGL = 1 BUS GRANT LATE ON READ OR WRITE 


STEF 




BIT12 


STEF = 1 ERROR DETECTED ON A SINGLE TAPE TRACK 


MTEF 




BIT13 


MTEF = 1 ERROR DETECTED ON MORE THAN ONE TAPE TRACK 


WPEF 




BITU 


•WPEF = 1 PARITY ERROR DETECTED DURING WRITE 


RPEF 




BIT1S 


RPEF si PARITY ERROR DETECTED DURING READ 



F 1 
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UA 
H5 
U6 
U7 
148 
H9 
150 
151 
152 
153 
15A 
155 



173 
17A 
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SEC 5 



;///////////////////////////////////////////// 
;TR79 FUNCTION CODES USED IN THIS PROGRAM 

;///////////////////////////////////////////// 

THE FOLLOWING CODES REPRESENT THE VALUES USED IN COMMAND REGISTER 
BITS FN803-FNB00 (8IT4-BIT1) TO INVOKE PARTICULAR TR79F OPERATIONS, 
COMMAND REGISTER 81 TO MUST BE SET - 1 TO INITIATE AN OPERATION. 
UNIT VALUES ARE INCLUDED FOR TESTING CONTROL UNIT LOGIC. 



156 






UNIT 


COMMAND 


157 


ILCOO 


=0 


0 


ILLEGAL COMMAND 


158 


WRITE 


=402 


•1 


WRITE FORWARD 


159 


READ 


=4 


0 


READ FORWARD 


160 


ILC03 


=406 


1 


ILLEGAL COMMAND 


161 


SPACER 


=1410 


3 


SPACE REVERSE 1 RECORD 


162 


ILC05 


=1012 


■2 


ILLEGAL COMMAND 


163 
164 


ILC06 


=1414 


•3 


ILLEGAL COMMAND 


ERASE 


=16 


;0 


ERASE WORD COUNT FORWARD 


165 


REWIND 


=1020 


1 


REWIND TAPE 


166 


ILC11 


=22 


•0 


ILLEGAL COMMAND 


167 


ILC12 


=424 


•1 


ILLEGAL COMMAND 


168 


GOEOT 


=1026 


;2 


FAST FORWARD TO EOT 


169 


ILCU 


=1030 


•2 


ILLEGAL COMMAND 


170 


WIDE 


=432 


;1 


WRITE I.D. BLOCK 


171 


WEOF 


= 1034 


•2 


WRITE END OF FILE 


172 


OFLINE 


=1436 


;3 


TAKE UNIT OFF UNIT 



G 1 
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175 
176 
177 
178 
179 
180 
181 
182 
183 
18A 
185 
186 
187 
188 
189 
190 
191 
192 
193 

m 

195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
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SEQ 6 



5.0 TEST DESCRIPTIONS 

TESTl THIS IS A NULL TEST INCLUDED TO PRESERVE THE TEST NUMBERING 

USED IN CZTRAB. MANUAL INTERVENTION TESTS ARE INCLUDED IN TEST6 

TEST2 CHECKS THE INTERFACE LOGIC WITH MINIMUM TAPE MOTION 



TEST3 



TEST2 INCLUDES: 

REWIND FROM LOAD POINT 
INSURE WRITE RING 
UNIBUS EXTENSION BIT TEST 
INTERRUPT BIT SET TEST 
INTERRUPT BIT CLEAR TEST 
ILLEGAL COMMAND TEST 
WRITE FROM LOAD POINT 
WRITE EOF FROM LOAD POINT 
TEST TR79 POWER CLEAR 
SPACE REVERSE AT LOAD POINT 
NXM TEST 

BUS ADDRESS BIT TEST 
WORD COUNT BIT TEST 



TEST NAME IN CZTRAB 

TESTI 

TESTC 

TESTD 

TESTE 

TESTF 

TESTJ 

TESTK 

TESTM 

TEST6 

TESTAT 

TESTA8 

TESTAU 

TESTBA 



CHECKS TR79 TRANSPORTS RESPONSE TO COMMANDS 

CHECKS IDB AND EOF OPERATIONS 

CHECKS COUNT AND PARITY ERROR DETECTION 



TEST3 INCLUDES: 

INSURE WRITE ENABLE RING 

REWIND THE TAPE 

WRITE ID BLOCK 

ILLEGAL ID BLOCK TEST 

SPACE REVERSE OVER ID BLOCK 

READ ID BLOCK 

WRITE EOF MARKS 

SPACE REVERSE OVER EOF MARKS 

READ EOF MARKS 

TIME OUT TEST 

READ WITH COUNT LONG 

READ WITH COUNT SHORT 

SPACE REVERSE WITH COUNT SHORT 

SPACE REVERSE WITH COUNT LONG 

WRITE EVEN PARITY 

SPACE REVERSE OVER EVEN PARITY 

READ EVEN PARITY 



TEST NAME IN CZTRAB 

TESTC 

TESTI 

TESTO 

TESTH 

TESTAV 

TESTAW 

RUNL 

RUNU 

RUNV 

TESTW 

TESTAC 

TESTAD 

TESTAE 

TESTAF 

TESTAX 

TESTAY 

TESTAZ 



H 1 
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225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

2/4 
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TEST4 yRJTES. READS AND TESTS DATA WRITTEN ON TAPE 

TEST4 WRITES A FILE OF DATA TO TAPE A NUMBER OF TIMES. 
THE FILE CONTAINS 15 BLOCKS OF DATA. EACH TIME A BLOCK 
IS WRITTEN THE DATA IS READ BACK AND CHECKED. THE NUMBER 
OF TIMES WRITING AND CHECKING A FILE IS REPEATED IS 
SPECIFIED IN THE SOFTWARE P-TABLE. THE DEFAULT VALUE 
FOR THIS REPEAT COUNT IS 10. (DECIMAL) . 



TEST4 INCLUDES: 

INSURE WRITE RING 

REWIND AND WRITE ID BLOCK 

WRITE, SPACE REV. READ AND TEST DATA 



TEST5 READ DATA WRITTEN BY TEST4 

'■EST5 INCLUDES: 
CEWIND THE TAPE 
READ THE ID BLOCK 
READ THE TAPE 



TEST NAME IN CZTRAB 

TESTC 
TESTO 
TESTXX 



TEST NAME IN CZTRAB 
TESTI 
TESTAW 
TESTXY 



TEST6 CHECKS MANUAL INTERVENTION OPERATIONS 

TEST6 CORRESPONDS TO TEST GROUP 1 FROM CZTRAB 



TEST6 INCLUDES: 

REMOVE WRITE RING 

TRY TO WRITE WITHOUT RING 

INSERT WRITE RING 

DELAY 10 SECONDS 

TAKE UNIT OFF LINE 

TElL OPERATOR TO RESET 

REWIND THE TAPE 

WRITE PAST EOT 

SPACE REVERSE PAST EOT 

READ PAST EOT 

WRITE EOF PAST EOT 

SPACE REVERSE OVER EOF PAST EOT 

READ EOF PAST EOT 

REWIND AND GO OFF LINE 



TEST NAME IN CZTRAB 

TESTB 

RUNAS 

TESTC 

TESTAJ 

TESTP 

TESTAK 

TESTI 

TESTAL 

TESTAM 

TESTAN 

TESTAO 

TESTAP 

TESTAO 

TESTO 



I 1 



CZTRAC.P11 
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276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
^05 
i06 
307 
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6.0 



ERROR INFOriATION 



ERRORS ARE REPORTED BY THE PROGRAM AS THEY OCCUR IF ERROR REPORTING IS 
NOT INHIBITED. THIS PROGRAM CONSIDERS AN UNANTICIPATED VALUE IN ONE OR 
MORE OF THE TR79F CONTROL AND STATUS REGISTERS TO BE AN ERROR. ERROR 
REPORTS CONFORM TO THE XXf)P* DIAGNOSTIC RUN TIME SERVICES ERROR REPORT 
FORMAT. THE REPORTS SPECIFY THE ERROR TYPE AND NUMBER, THE TEST AND 
SUBTEST IN WHICH THE ERROR OCCURED. THE PC OF THE CALL TO THE ERROR 
REPORT SUBROUTINE, AND A DESCRIPTION OF THE TR79F OPERATION WHOSE 
INVOCATION GENERATED AN ERROR CONDITION. IN ADDITION, ACTUAL AND 
EXPECTED TR79F CONTROL AND STATUS REGISTER, AND I/O DATA VALUES ARE 
SHOWN IN BASIC ERROR REPORTS IF BASIC REPORTS ARE NOT INHIBITED. 

THE FOLLOWING EXAMPLE IS A TYPICAL ERROR REPORT. IN THIS CASE THE 
REPORT IS PRODUCED BY THE DETECTION OF A PARITY ERROR DURING A WRITE 
OPERATION. 



CZTRACO SFT ERR 
WRITE 



00020 ON UNIT 00 TST 003 SUB 001 PC: 027070 



REGISTER LOCATION EXPECTED ACTUAL 

COMMAND 164000 002602 102602 

STATUS 164002 002001 102001 

WORD COUNT 164004 000000 000000 



.SBTTL LISTING ft ASSEMBLY CONTROL 



J 1 
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SEQ 9 



308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

3A0 

341 

3A2 



000000 



002000 



002000 



002000 



000001 
000001 
000000 
000000 
000000 
000000 
000000 



HELP=0 



CONTROL LISTING OF HELP INFORMATION 
HELP=0 NO LIST 
HELP=1 LIST 



.S8TTL INITIALIZE SUPERVISOR 

.=2000 

.MCALL SVC 
SVC 



; INITIALIZE SUPERVISOR MACROS 



BGNMOD TR79 



SLSTIN= 1 
$LSTTAG= 1 
SVCINS- 0 
SVCTST= 0 

svcsue- 0 

SVC68L= 0 
SVCTAG= 0 



LIST INSTRUCTIONS, SHIFTED RIGHT 
LIST TEST TAGS, SHIFTED RIGHT 
LIST SUBTEST TAGS, SHIFTED RIGHT 
LIST GLOBAL TAGS, SHIFTED RIGHT 
LIST OTMcR TAGS, SHIFTED RIGHT 



CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 
TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 
SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. YOU MAY 
CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM. 



.S8TTL SELECT OPTIONAL SECTIONS 



K 1 



CZTRAC.P11 
3A3 
3A5 

346 002000 

347 

348 

349 

350 

351 

352 
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SELECT OPTIONAL SECTIONS 

;* SELECTION OF OPTIONAL PROGRAM SECTIONS 
POINTER ERRTBL.BGNSy.BGNSFT 



.SBTTL PROGRAM HEADER 



SEQ 10 



L 1 



SEO 11 



CZTRAC.P11 


30-DEC-81 11:08 


PROGRAfl 


HcADcR 






•J J J 














Kit 














355 








;THE PROGRAM HEADER MACRO CHARACTERIZES THIS 0IA6NOSTI 


356 








.-HEADEfl 


MACRO'S ARGUMENTS ARE FILE NAME, RELEASE LEVEL 


357 








.•DISPOSITION OF 


THE MOST RECENT PATCH. MAXIMUM TEST TI 


358 








;AND THE TYPE OF DIAGNOSTIC (0-SEQUENTlAL. 1-EXERCISER 


359 

■J J y 








.-ARGUMENTS ARE 


IN RESPECTIVE ORDER. 


360 






• 








361 














362 

■J\J L 














363 














36A 


002000 






HEADER 


CZTRA,C,0.7200.,0 


365 


002000 










( V 1 AuNU9 1 i I 


366 


002000 


103 




.ASCII 


/t/ 




367 


002001 


132 




.ASCII 


1 LI 




368 


002002 


124 




.ASCII 


1 1 / 




369 


002003 


\2Z 




A T T 


/o / 
tn/ 




370 


002004 

www w w~ 


10 1 




A c r T 1 

.AdCi I 






371 


002005 


AAA 

000 




OVTC 

• or It 


A 

U 




372 


002006 

W Wfc W WW 


AAA 

000 




.oYTc 


A 

u 




373 


002007 


AAA 
000 




QVTC 

.or ic 


A 

u 




374 


002010 




LMc V: : 






• DFV/TCrnM 1 FUFI 
<nCVldJUn LCVCL 


375 


00201 0 


1 AT 
103 




A c r r T 


IC 1 




376 


002011 




LSDcrO: 






• 0 

* V 


177 


00201 1 


A^ A 

OoU 




A c r 1 r 


/ U/ 




378 


002012 




1 Cl Ikl T T • 

L«UNi r : 








379 


002012 


AAAAfiA 
OOUOUU 




LIADn 

. WUNU 


A 




380 


002014 




LSI jnL « 








381 


002014 


A 1 Z A/ A 

016040 




LJADr\ 

. WUnD 


7?no 

r cvv. 




382 


002016 




1 clidtd • 
L#nrtr: 








383 


002016 






.WORD 






384 


002020 




1 com ■ 

LJSrCP: 






;POINTER TO S.U. QUES. 


385 


002020 


03<»6c4 




.WORD 


LSSOFT 




386 


002022 




1 ftuOTD • 

L#nrTr : 






;PTR. TO DEF. H.W. PTABLE 


387 


002022 


UOi I4c 




.WOND 


L$HU 




388 


002024 




1 C CDTD • 

L#5r Ir ; 






;PTR. TO S.W. PTABLE 


389 


002024 


AAOI 
OUfl 3c 




LJADf\ 


LSSU 




390 


002026 




L>LADr: 






:DIAG. END ADDRESS 


391 


002026 






.UUnP 


LSLAST 




392 


002030 




1 ft C T A . . 






.RESERVED FOR APT STATS 


393 


002030 


AAAAAA 
000000 




. WUnP 


0 




394 


002032 




1 ft ^ A ■ ■ 

LSCO: : 








395 


002032 


AAA/lAA 




.WORD 


0 




396 


002034 




LSDTTr: 






.DIAGNOSTIC TYPE 


397 


002034 


AAAAAA 
OUUUUU 




'.WORD 


0 


398 


002036 




LJAPT ; ; 






;APT EXPANSION 


399 


002036 


AAAAAA 
UUUUUU 




.WORD 


0 


400 


002040 




LJDTP: : 






;PTR. TO DISPATCH TABLE 


401 


002040 


AAOl 0/ 

UOclcH 




.WORD 


LSDISPATCH 


402 


002042 




L»»*RIO: 






.-DIAGNOSTIC RUN PRIORITY 


403 


002042 


AAAAAA 
UOOOUU 




'.WORD 


0 


404 


002044 




1 ftC AIti f . 

LJcNVi : 






.•FLAGS DESCRIBE HOU IT WAS SETUP 


405 


002044 


000000 




'.WORD 


0 


406 


002046 




LSEXPI : 






: EXPANSION WORD 


407 


002C46 


000000 




'.WORD 


0 


408 


002050 




LSMREV: 






:SVC REV AND EDIT « 



PATCH 
: IN SEC. 
. THESE 



H 1 

SEO 12 





P1 1 

r 1 1 


50-DFC-81 11-08 


PROGRAM 


HEADER 






409 


002050 


003 




.BYTE 


CSREVISION 


410 


002051 


003 

Vw^ 




• BYTE 


ClfcDI T 


'DIAG. EVENT FLAGS 


^1 1 


OOPOSP 

\J\JC\J JC 


L$EF : : 






41? 


002052 


000000 

WW WW WW 




.WORD 


0 




41 ^ 




000000 


LlSPC: : 


.WORD 


0 




414 


002056 




.UORD 






415 


002056 


000000 

w w w w w w 




0 


; POINTER TO DEVICE TYPE LIST 


416 


002060 


LIDEVP: 




LSDVTYP 


417 


002060 


012322 




' .WORD 


;PTR. TO REPORT CODE 


418 


002062 

W Wb WW k 


LSREPP: 






419 


002062 


000000 

w w w w w w 


L$EXP4: 


.UORD 


0 




420 


002064 




' .UORD 






421 


002064 


000000 


L$EXP5: 


0 




422 


002066 

w w^ www 










423 


002066 

w wb www 


000000 

w w w w w w 




' .UORD 


0 


•PTR. TO ADD UNIT CODE 


424 


002070 

W Wb W • W 




LSAUT: : 






425 


002070 


000000 




.UORD 


0 


:PTR. TO DROP UNIT CODE 


426 


002072 


LSDUT; : 






427 


002072 

wwC w > k 


000000 




.UORD 


0 


;iUN FOR EXERCISERS TO FILL 


428 


002074 

w WC> w f ^ 




LSLUN: : 






429 


002074 


ooooco 

w w w w w w 




.UORD 


0 


;POINTER TO DIAG. DESCRIPTION 


430 


002076 

WWLWI W 


LSDESP: 






431 


002076 


012330 




' .UORD 


LSDESC 




432 


002100 


LSLOAD: 






.•GENERATE SPECIAL AUTOLOAD EMT 


433 


002100 


104035 




'emt 


ESLOAD 




434 


002102 




LIE TP: : 






.•POINTER TO ERRT8L 


435 


002102 


002154 




.UORD 


LSERRTBL 


436 


002104 




LSI CP: : 




LSJNIT 


;PTR. 10 INIT CODE 


437 


002104 


024034 




.UORD 


;PTR. TO CLEAN-UP CODE 


438 


002106 

www ' WW 




LSCCP: : 






439 


002106 

www • WW 


024202 




.UORD 


LSCLEAN 


;PTR. TO AUTO CODE 


440 


002110 




LSACP: : 






441 


002110 


024200 




.UORD 


LSAUTO 


;PTR. TO PROTECT TABLE 


442 


002112 




LSPRT: : 






443 


002112 


024026 




.UORD 


LSPROT 




444 


002114 




LITEST: 






;TEST NUMBER 


445 


002114 


000000 




'.UORD 


0 




446 


002116 




LSDLV:: 






; DELAY COUNT 


44? 


002116 


000000 




.UORD 


0 




448 


002120 




LSHiME: 






;PTR. TO HIGH MEM 


449 


002120 


000000 




' .UORD 


0 




450 














451 






• EVEN 








452 














453 














454 






.serTL 


DISPATCH 


TABLE 





N 1 



C2TRAC.P11 30-DEC-81 11:08 

A55 
456 
457 
458 
459 
460 
461 

462 002122 

463 002122 000006 

464 002124 

465 002124 024204 

466 002126 024206 

467 002130 026522 

468 002132 031316 

469 002134 032040 

470 002136 032344 
471 

472 
473 
474 
475 



DISPATCH TABLE 



SEO 13 



///////////////////////////////////////////////////////////////////////////// 
/ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
/ IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST, 

///////////////////////////////////////////////////////////////////////////// 

DISPATCH 6. 

.WORD 6 
LSDISPATCH:: 

.WORD Tl 

.WORD T2 

.WORD T3 

.WORD T4 

.WORD T5 

.WORD T6 



.S8TTL DEFAULT HARDWARE P-TABLE 



B 2 



CZTRAC.P 1 



:0-DEC-81 11:08 



<.76 
477 
478 
479 
480 
481 
482 

483 002140 

484 002140 000003 

485 002142 

486 002142 
487 

488 C02142 164000 

489 002144 000170 

490 002146 000240 
491 

492 002150 

493 002150 
494 

495 
496 
497 



DEFAULT HARDWARE P-TABLE 



SEO 14 



//////////////////////'///////////////////////////////////////////////////// 
/ THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
/ THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
/ IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TA£_E. 

/////////////////////////////////////////////////////////////////////////// 



L$HW:: 
DFPTBL: 



LI 0000: 



BGNHW 
.WORD 



.WORD 
.WORD 
.WORD 

ENDHW 



DFPTBL 

L10000-LSHW/2 



164000 

170 
PR 1 05 



TR79 CSR UNI8US ADDRESS 

TR79 INTERRUPT VECTOR 

TR79 INTERRUPT PRIORI Tr LEVEL = 5 



.SBTTL SOFTWARE P-TABLE 



C 2 
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498 
499 
500 
501 
502 
503 
50A 

505 002150 

506 002150 000001 

507 002152 

508 002152 

509 002152 000012 
510 

511 002154 

512 002154 
513 

514 
515 
516 
517 



SCFTUARE P-TA8LE 



SEO 15 



//////////////////////////////////////////////////////////////////////// 
THE SOFTWARE P-TABLE CONTAINS PROGRAM PARAMETERS WHOSE VALUE 
CAN BE CHANGED BY THE OPERATOR. 

///////////////////////////////////////////////// V///////////////////// 



B6NSU 
.WORD 

lSSW:: 
SFPTBL:: 
RPTCNT: .UORD 



SFPTBL 

L10001-LSSU/2 



10. 



L 10001: 



ENDSW 



;DEFAULT VALUE FoR NUMBER OF FILES WRITTEN 
; IN TEST4 



.SBTTL GLOBAL EQUATES SECTION 



D 2 
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5:8 
519 
520 
521 
522 
523 

52A 0021 5A 

525 

526 

527 

528 100000 

529 040000 

530 020000 

531 010000 

532 OOAOOO 

533 002000 
53A 001000 

535 000400 

536 000200 

537 000100 

538 000040 

539 000020 

540 000010 

541 000004 

542 000002 

543 000001 
544 

545 001000 

546 000400 

547 000200 

548 000100 

549 000040 

550 000020 
•:51 000010 
• 2 000004 
>53 000002 
554 000001 
555 

556 
557 
558 

559 000040 

560 000037 

561 000036 

562 000035 

563 000034 
564 

565 
566 
567 

568 000340 

569 000300 

570 000240 

571 000200 

572 000140 

573 000100 



GLOBAL EQUATES SECTION 



SEQ 16 



///////////////////////////////////////////////////////////////////////////// 
/ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 

/ ARE USED IN MORE THAN ONE TEST. 

///////////////////////////////////////////////////////////////////////////// 

EQUALS 
BIT DIflNITIONS 



8IT15== 


100000 


BIT14== 


40000 


Q f T 1 


5ArtAA 

cvvW 


9i 1 Ic-- 


innno 


9i 1 1 1 ~ 




B T Tin-' 
Hi 1 IU-- 


cvUv 


Q T TOQ-- 


innn 

1 vvv 


PTTftfl-- 
9i 1 vO— - 


cnct 


or 107-- 
91 1 Wf " 


?nn 

cvv 


9i 1 UO— — 


inn 


nTTn^-= 

Oi 1 vJ— — 




BIT04== 


20 


BIT03== 


10 


HI 70?== 


L 


BIT01== 


2 


BlTOO=s 


1 


BIT9== 


BIT09 


B1T8== 


BIT08 


B1T7== 


B1T07 


BJT6s= 


BIT06 


BIT5== 


BIT05 


BIT4« 


BIT04 


BIT3== 


BIT03 


BIT2== 


BIT02 


BIT1== 


BITOT 


BITO« 


BITOO 


; EVENT 


FLAG DEFINITIONS 



EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF.STARTss 


ii* 


EF.RESTART=s 




EF. CONTINUE— 


30: 


EF.NEUrs 


29. 


EF.PUR— 


28. 



START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 
A NEU PASS HAS BEEN STARTED 
A POUER-FAIL/PCJER-UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 

PR I 07== 340 
PR I 06== 300 
PRI05== 240 
PR I 04== 200 
PRI03== 140 
PRI02== 100 



E 2 



f7TBAr P1 1 


JV l/C I- O V 










J ' D 




S77 




S7R 




S79 


000004 




000010 

Www 1 V 


JO 1 


OOCOPO 

WWVVC V 




000040 


JO J 


000100 

www 1 Ww 




000?00 

wWWC WW 




000400 

www*f w w 




001000 

WW 1 www 


Sfi7 

JO r 


00?000 

W VC WW 




004000 

W~ WWW 


JO 7 


010000 

W I wwww 




020000 

w w wwww 


591 


040000 

W~ WW WW 




1 00000 

1 www 






594 




595 




596 




597 




S98 





GLOBAL EQUATES SECTION 



itQ If 



PRI01== 
PRI00== 



40 
0 



OPERATOR FLAG BITS 





4 


L0T== 


10 


ADR=- 


20 


IDU== 


40 


ISR" 


100 


UAM== 


200 


BOE== 


400 


PNT== 


1000 


PRI== 


2000 


IXE== 


4000 


I8E== 


10000 


IER== 


20000 


LOE== 


40000 


HOE== 


100000 


'.SBTTL 

• 


GLOBAL 



GLOBAL EQUATES FROM CZTRA 



F 2 



CZTRAC.P11 


30-DfcC-81 


599 




600 




601 




602 




603 


000000 


604 


000001 


60S 


000002 


606 


000003 


607 


000004 


608 


000005 


609 


000006 


610 


000007 


611 




612 




613 




614 




615 


177776 


616 




617 




618 




619 




620 


164000 


621 


164002 


622 


164004 


623 


164006 


624 


000170 


625 


000172 


626 





GLOBAL EQUATES FROM CZTRA 



.-REGISTER DEFINITIONS 



SEQ 18 



RO=ZO 
R1=X1 
R2=X2 
R3=Z3 
R4=Z4 

SP-X6 
PC-X7 



.■GENERAL REGISTER 
.•GENERAL REGISTER 
.•GENERAL REGISTER 
.•GENERAL REGISTER 
.•GENERAL REGISTER 
.'GENERAL REGISTER 
:PROCESSOR STACK POINTER 
.-OROGRAM COUNTER 



.•LOCATION EQUIVALENCES 

PS=1 77776 .'PROCESSOR STATUS WORD 



.•DEFAULT TR79 REGISTER ADDRESSES 



TCR= 
TSR= 
TWC= 
T8A= 
TVA= 
TSA= 



164000 

164002 

164004 

164006 

170 

172 



DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 



CONTROL REGISTER ADDRESS 
STATUS REGISTER ADDRESS 
WORD COUNT ADDRESS 
BUS ADDRESS ADDRESS 
TAPE VECTOR ADDRESS 
TAPE STATUS ADDRESS 



G 2 
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627 
628 
629 
630 
631 
632 
633 
63A 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 



30-DEC-81 11:08 



GLOeAL EQUATES FROM CZTRA 



000000 
000402 
000004 
000406 
001410 
001012 
001414 
000016 
001020 
000022 
000424 
001026 
001030 
000432 
001034 
0UU36 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002U00 
004000 
010000 
020000 
040000 
100000 



000001 

00C002 

000004 

000010 

000020 

000040" 

000100 

000200 



;TR79 FUNCTION DEFINITIONS 



.•TAPE TEST EQUALS 







UNIT 


COMMAND 


ILCOO 


=0 


0 


ILLEGAL COMMAND 


WRITE 


=402 


1 


WRITE FORWARD 


READ 


=4 


0 


READ FORWARD 


ILC03 


=406 


1 


ILLEGAL COMMAND 


SPACER 


=1410 


3 


SPACE REVERSE 1 RECORD 


ILC05 


=1012 


2 


ILLEGAL COMMAND 


IIC06 


=1414 


•3 


ILLEGAL COMMAND 


ERASE 


=16 


■0 


ERASE WORD C1UNT FORWARD 


REWIND 


=1020 


•1 


REWIND TAPE 


ILC11 


=22 


■0 


ILLEGAL COMMAND 


ILC12 


=424 


■1 


ILLEGAL COMMAND 


GOEOT 


=1026 


;2 


FAST FORWARD TO EOT 


ILC14 


=1030 


;2 


ILLEGAL COMMAND 


WIDB 


=432 


;1 


WRITE I.D. BLOCK 


WEOF 


=1034 


;2 


WRITE END OF FILE 


OFLINE 


=1436 


;Z 


TAKE UNIT OFF UNIT 



GOeiT 

FNBOO 

FNB01 

FNB02 

FNB03 

BUSY 

INTENB 

CURDY 

SBIT8 

SSIT9 

MTRDY 

PWRCLR 

XBA16 

XBA17 

ILCMD 

ERRBiT 



.SSTTL BIT DEFINITIONS FOT TR79 REGISTERS 
:TRCR COMMAND REGISTER BIT DEFINITIONS 



= 1 
= 2 
= 4 
= 10 
= 20 
= 40 
= 100 
= 200 
= 400 
= 1000 
= 2000 
= 4000 
= 10000 
= 20000 
= 40000 
= 100000 



;Tn79 STATUS REGISTER BIT DEFINITIONS 



INH8T 




1 


RWDS 




2 


FPTS 




4 


fOFF 




10 


I DBF 




20 


LDPTS 




40 


NXMF 




100 


EOTS 




200 
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683 
684 
685 
686 
687 
688 
689 
690 
691 
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OOOAOO 
001000 
002000 
OOAOOO 
010000 
020000 
040000 
100000 



H 2 

BIT DEFINITIONS FOT TR79 REGISTERS 



S£0 20 



TMOUT 

RDCNT 

ONLNS 

BGL 

STEF 

MTEF 

UPEF 

RPEF 



= 400 
= 1000 
= 2000 
= 4000 
= 10000 
= 20000 
= 40000 
- 100000 



000000 
OOOOGO 
000001 
000002 
000003 
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692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 

71 1 0021 54 
71? 002154 

713 002154 

714 002156 

715 002160 

716 002162 
717 

718 002164 

719 002166 

720 002170 

721 002172 

722 0021 74 

723 002176 

724 002200 

725 002202 

726 002204 

727 002206 

728 002210 

729 002212 

730 002214 

731 002216 
732 

733 
734 
735 
736 
737 

738 002220 

739 002222 

740 002224 

741 002226 

742 002230 

743 002232 



000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



I 2 

BIT DEFINITIONS FOT TR79 REGISTERS 



.S8TTL MISCELLANEOUS EQUATES FOR ERROR CALLS 



SEO 21 



ENU« = 0 
T.ESF= 0 
T.EDF= 1 
T.EHRD= 2 
T.ESFT= 3 



INITIALIZE ERROR NUMBER 
SYSTEM FATAL ERROR TYPE 
DEVICE FATAL ERROR TYPE 
UNRECOVERABLE ERROR TYPE 
SOFT ERROR TYPE 



.SBTTL GLOBAL DATA SECTION 



///////////////////////////////////////////////////////////////////////////// 
/ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE U.SED 

/ IN MORE THAN ONE TEST 

///////////////////////////////////////////////////////////////////////////// 
ERRTBL 



LSERRTBL;: 




0 


ERRTYP. 




.WORD 


ERRNBR. 




.WORD 


0 


ERRMS6 




.WORD 


0 


ERRBLK 




.WORD 


0 


ATRCR 




.kfORD 


0 




ATRSR 




.WORD 


0 




ATRUC 




.WORD 


0 




ATRBA 




.WORD 


0 




ETRCR 




.WORD 


0 




ETRSR 




.WORD 


0 




ETRUC 




.WORD 


0 




ETR8A 




.WORD 


0 




AINPUT 


• .WORD 


0 




t INPUT 


: .WORD 


0 




L INPUT 


■ .WORD 


0 




USEA: 




.WORD 


0 




USEB: 




.WORD 


0 




USEC: 




.WORD 


0 





000000 


DLX: 


.WORD 


0 


000036 


DLXRW: 


.WORD 


30. 


000030 


DLXPWR; 


.WORD 


24. 


000310 


DLXBEL: 


.WORD 


200. 


000620 


OLXTOF; 


.WORD 


400. 


000062 


DLXLNG: 


.WORD 


SO. 



;COPY OF TR79 COMMAND REGISTER 
;COPV OF TR79 STATUS REGISTER 
.-COPY OF TR79 WORD COUNT REGISTER 
:COPY OF TR79 BUS ADDRESS REGISTER 
.•EXPECTED VALUE F0RTR79 COMMAND REGISTER 
.•EXPECTED VALUE FOR TR79 STATUS REGISTER 
;EXPECTED VALUE FOR TR79 WORD COUNT REGISTER 
.'EXPECTED VALUE FOR TR79 BUS ADDRESS REGISTER 
.COPY OF WORD FROM INPUT AREA 
.EXPECTED DATA IN INPUT AREA 
.LOCATION OF DATA WORD IN INPUT AREA 
:TR79 FIMCTJON TO EXECUTE 
;TR79 WORD COUNT FOR FIMCTION TO EXECUTE 
;TR79 BUS ADDRESS FOR FUNCTION TO EXECUTE 
: IF NEGATIVE THEN REPEAT LOOP UNTIL EOT 

.•DELAY CONSTANTS AND MULTIPLIERS 

; THESE CONSTANTS ARE BASED ON 11/70 WITH CACHE .AlL HITS 

; TIMING LOOPS (INC/DEC A RE6ISTER.8NE) = 0.9 MICROSECONDS/TICK 

.•DELAY MULTIPLIER 

.♦READ/WRITE DELAY MULTIPLIERd .5 SECONDS) 
.•POWER CLEAR DELAY MULTIPLIC «(900 MILLISECONDS 
;10 SECOND DELAY MULTIPLIER 
:DELAY MULTIPLIER FOR PUTTING TAPE ON LINE 
.FORCE TIMEOUT DELAY MULTIPLIER 



CZTRAC. 


P11 


50-DEC-81 


744 






745 






746 






747 


002234 


000000 


748 


002236 


000000 


749 


002240 


000000 


750 






751 






'52 






753 






754 






755 






756 






757 






758 






759 






760 






761 


002242 


1 64000 


762 


002244 


164002 


763 


002246 


164004 


764 


002250 


164006 


765 






766 


002252 


0001 70 


767 


002254 


000240 


768 






769 






770 






771 







GLOBAL DATA SECTION 

.•PROGRAM CONTROL PARAMETERS 



LOGDEV 
PSTACK 
INTFLG 



TRCR 
TRSR 
TRWC 
TR8A 



TRVCT: 
TRPRT: 



.WORD 0 
.WORD 0 
.WORD 0 



; PROGRAM VARIABLES 



LOGICAL DEVICE NUMBER 

CONTAINS BASE LEVEL PROGRAM STACK POINTER 
INTERRUPT RECEIVED FLAG. SET = -1 WHEN 

TR79 INTERRUPT ENABLE BIT IS SET. CLEARED 
BY INTERRUPT HANDLER WHEN TR/9 INTERRUPT 
IS RECEIVED. 



:TR79 VECTOR AND REGISTER POINTERS 



164000 
164002 
164004 
164006 

170 
PR J OS 



ADDRESS Of TR79 COMMAND REGISTER 

ADDRESS OF TR79 STATUS REGISTER 

ADDRESS OF TR79 WORD COUNT REGISTER 

ADDRESS OF TR79 BUS ADDRESS REGISTER 

; ADDRESS OF rR79 INTERRUPT VECTOR 
:rR79 INTERRUPT PRIORITY LEVEL 



.SBTTL lOBUF INPUT>OUTOUT BUFFERS 
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772 
773 



K 2 

I08UF INPUT-OUTOUT BUFFERS 



SEQ 23 



002256 
002262 


000000 


000000 




002262 
002322 
002362 
002422 


000652 
000652 
000652 
000652 


000525 
000525 
000525 
000525 


000652 
000652 
000652 
000652 


002462 
002522 
002562 
002622 


000001 
000421 
000441 
000061 


000002 
000422 
000442 
000062 


000403 
000023 
000043 
000463 


002662 
002722 
002762 
003022 


000501 
000121 
000141 
000561 


000502 
000122 
000142 
000562 


000103 
000523 
000543 
000163 


C03062 
003122 
003162 
003222 


000601 
000221 
000241 
000661 


000602 
000222 
000242 
000662 


000203 
000623 
000643 

AAA'%^ 9 

000263 


003262 
003322 
003362 
003422 


000301 
000721 
000741 
000361 


000302 
000722 
000742 

AAA 9 Z ^ 

000362 


000703 
000323 
000343 

AAA9^9 

000/63 


003462 
003522 
0C3562 
003622 


000652 
000652 
000652 
000652 


000525 
000525 
000525 

AAA CiC 

000525 


000652 
000652 
000652 

AAAZ C 

000652 


003662 
003722 
003762 
004022 


000777 
000001 
000010 
000100 


000400 
000001 
000010 
000100 


000777 
000001 
000010 
000100 


004062 

UU*» 1 CC 

004162 
004222 


000777 

000020 
000200 


000400 

000020 
000200 


000777 
(\r\r\(\c\'i 

000020 
000200 


004262 
004322 
004362 
004422 


000777 
000004 
000040 
000400 


000400 
000004 
000040 
000400 


000777 
000004 
000040 
000400 



.NLIST BEX 
BADOUT: 0,0 
OUTPUT; 



.'OUTPUT BUFFER STARTS HERE 



652.525,652.525.652.525,652,525.652.525,652.525.652,525.652,525 
652. 525. 652, 525. 652. 525, 652. 525. 652, 525. 652, 525, 652, 525, 65;?. 525 
652.525.652.525.652.525.652.525.652.525,652,525.652.525.652.525 
652.525.652.525.652.525.651,525.652.525.652.525.652.525,652.525 

;106 

001.002.403.004.405.406,007.010.411.412,013.414,015,016.417,020 
421, 422, 023, 424, 025, 026, 427,430, 031, 032, 433, 034,435, 436, 037, 0<.0 
441.442,043,444,045.046,447,450.051,052,453,054,455.456.057.460 
061.062,463.064,465.466.067,070,471,472,073,474,075,076,477,100 
:200 

501.502.103,504.105.106.507.510.111.112,513,114,515,516,117,520 
121,122,523,124,525,526,127,130,531,532,133,534,135,136,537,540 
141,142,543,144,545,546,147,150,551,552,153,554,155,156.557,160 
561.562.163,564.165.166,567,570,171,172,573.174,575,576,177,200 
;300 

601, 602, 203, 604, 205, 206,607, 610, 21 1,212, 613, 214, 615,616,217,620 
221.222.623,224,625,626,227,230,631,632,233,634,235,236.637,640 
241, 242,643, 244,645,646,247, 250, 651 ,652,253.654, 255. 256,657,260 
661.662.263.664.265.266.667.670.271,272.673.274.675.676.277.700 

;400 

301.302.703.304,705.706,307.310.711.712.313.714,315,316.717,320 
721,722.323.724.325.326.727.730.331.332.733,334.735.736.337.340 
741.742.343.744.345.346.747.750.351.352.753.354.755.756.357.760 
361.362.763.364.765.766.367.370.771.772.373.774.375.376.777.400 

;500 

652.525,652,525,652.525.652.525.652.525.652,525,652,525.652.525 
652.525.652.525.652.525.652.525.652,525,652,525,652,525,652,525 
652,525,652,525,652.525.652,525,652.525.652.525.652,525.652.525 
652.525.652.525.652.525.652.525.652.525.652.525.652,525,652.525 

;6C0 

777.400.777.400.777.400.777.400.777.400,777.400.777.400.777.400 
001 .001 ,001 .001 .001 .001 .001 .001 .001 .001 .001 .001 .001 .001 .001 .001 
010,010.010.010.010,010,010,010.010.010,010.010.010.010.010.010 
100.100.100,100.100.100.100.100.100.100.100.100.100.100.100,100 
;700 

777,400,777,400,777,400,777,400,777,400,777,400.777.400.777.400 
002 . 002 . 002 . 002 . 002 . 002 . 002 . 002 . 002 , 002 . 002 . 002 . 002 . 002 , 002 . 002 
020 . 020 , 020 , 020 . 020 , 020 , 020 , 020 . 020 . 020 . 020 . 020 . 020 . 020 . 020 . 020 
200 .200 . 200 . 200. 200 , 200 , 200 , 200 , 200 . 200 . 200 , 200 . 200 , 200 . 200 . 200 

:1060 

>77. 400. 777.400. 777. 400, 777, 400. 777, 400. 777, 400. 777, 400, 777. 400 
004 . 004 . 004 . 004 . 004 . 004 . 004 . 004 . 0U4 . 004 . 004 . 004 . 004 . 004 . 004 . 004 
040,040,040.040.040.040.040.040,040,040,040,040,040.040.040.040 
400.400.400.400.400.400.400.400,400,400.400.400,400,400,400.400 
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004462 
004522 

004622 


000652 
000652 

OOOAS? 

000652 


000525 

000525 
000555 

\J\J\J JC J 

000525 


004662 
004722 

\J\JH f UC 

005022 


000652 
000652 
00065? 
000652 


000525 
000525 
0005?5 
000525 


005062 
005122 

005222 


000652 
000652 
0006S? 
000652 


000525 
000525 
000525 
000525 


005262 
005322 
005362 
005422 


000652 
000652 
000652 
000652 


000525 
000525 
000525 
000525 


005462 
005522 
005562 
005622 


000652 
000652 
000652 
000652 


000525 
000525 
000525 
000525 


005662 
005722 
005762 
006022 


000652 
000652 
000652 
000652 


000525 
000525 
000525 
000525 


006062 
006122 
006162 
006222 


000652 
000652 
000652 
000652 


000525 
000525 
000525 
000525 


006262 


000777 


000777 


006322 


002000 





000652 
000652 
000652 
000652 



000652 
000652 
000652 
000652 



000652 
000652 
000652 
000652 



000652 
000652 
000652 
000652 



000652 
000652 
000652 
000652 



000652 
000652 
000652 
00"' 52 



L 2 

I08UF INPUT-OUTOUT BUFFERS 
;1100 

652.525,652.525.652.525,652.525,652.525,652,525,652.525.652.525 
652.525.652.525.652.525,652.525.652,525,652,525.652.525.652,525 
652.525.652.525.652,525,652.525.652,525,652,525.652,525,652,525 
652.525.652,525,632.525,652,525,652.525.652.525,652.525.652,525 
.•1260 

652.525.652.525.652,525,652,525,652.525.652.525.652.525.652.525 
652.525.652.525.652.525.652.525.652.525.652.525.652.525.652.525 
652,525.652,525,652.525,652,525,652,525,652,525,652,525,652,525 
652:525 652:525.652,525,652.525.652,525.652.525.652,525.652,525 

;1360 

652,525,652,525,652,525,652,525,652,525,652,525,652,525,652,525 
652.525.652.525,652,525,652,525,652,525,652.525.652.525.652,525 
652.525.652,525.652,525.652,525.652.525,652.525.652.525.652.525 
652:525:652:525.652.525.652.525.652.525.652.525.652.525.652,525 
:U60 

652.525.652,525,652,525,652,525,652,525,652,525,652,525.652.525 
652,525,652.525.652,525,652.525.652.525.652.525,652,525,652,525 
652.525.652.525,652,525.652,525,652.525,652,525,652,525.652,525 
652,525,652,525,652.525.652.525,652,525,652.525,652,525.652.525 
;1560 



SEO 2** 



652,525.652,525 
652.525.652.525 
652.525.652.525 
652-525,652.525 
;1600 

652.525.652.525 
652.525.652.525 
652.525.652.525 
652.525.652.525 

;1760 



,652.525.652.525.652.525.652,525,652,525.652,525 
,652. 525. 652. 525, 652, S2b. 652, 525,652, 525,652, 525 
,652.525.652,525,652.525.652,525.652.525,652,525 
.652.525.652.525.652.525.652.525.652.525.652.525 

.652.525,652.525.652.525,652.525.652,525.652.525 
.652.525.652.525.652.525,652.525.652.525.652.525 
.652.525.652.525.652.525.652.525.652.525.652.525 
.652.525.652,525.652.525.652.525.652.525.652,525 



000652 652,525,652,525,652,525.652.525.652,525.652.525.652.525.652.525 
000652 652.525.652.525,652.525,652.525.652,525.652.525.652,525.652.525 
000652 652.525.652,525,652,525.652.525.652.525.652.525.652.525.652.525 
000652 652-525.652.525.652.525.652.525.652.525.652.525.652.525,652.525 

;2060 

000777 777,777.777.777,777,777,777,777,777,777,777,777,777,777,777.777 
INPUT: .BLKW 2000 



774 



LIST BEX 

:S8TTL GLOBAL TEXT SECTION 



C2TRAC.P11 30-DEC-81 11:08 



GLOBAL TEXT SECTION 



775 
776 
777 
77% 
779 
780 
781 
782 
783 
78A 
785 
786 

787 012322 

788 012322 

789 012322 
790 

791 
792 
793 
794 
795 

796 012330 

797 012330 

798 012330 

799 012336 

800 012344 

801 012352 

802 012360 
803 

804 
805 
806 
807 



808 
809 
810 



012362 



051124 034467 
012330 



051124 034467 

043501 052040 

020105 044504 

047516 052123 

000 
012362 



047045 022462 
012416 



xxnnnxxxxxxxtxixx%txxxitxxxxxxxxtxx''.mzttmitmxx%tm%nx%ixx%mxxxu 

X THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 

Z MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

Z MORE THAN ONE TEST. 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ 



• NAMES OP OE^ia TYPE SUPPORTED BY DIAGNOSTIC 



DEVTVP <TR79> 
LSDVTYP:: 
000 .ASCIZ /TR79/ 

.EVEN 



• TITLE OF PROGRAM 



DESCRIPT <TR79 MAG TAPE DIAGNOSTIO 

LSDESC:: 

046440 .ASCIZ /TR79 NAG TAPE DIAGNOSTIC/ 

050101 
043501 
041511 

.EVEN 



.NLIST BEX 
020101 N0TR79: .ASCIZ 
.EVEN 
.LIST BEX 



/ZN2ZA P-TABLE SAYS NO TR79/ 



.SBTTL GLOBAL SUBROUTINES 



N 2 



012A16 


0^,2777 


000001 


167620 RUIND: 


BK 


#6JT0,dTRSR 


01 2A24 


QU777 


000000 


167614 


MOV 


#0,aTRUC 


012A32 


QU777 


000000 


167610 


MOV 


#0,aTRBA 


012AA0 


Qn777 


0C1020 


167574 


MOV 


«REUiNO,aTRCR 


012446 


052777 


000001 


167566 


BIS 


#6IT0,aTRCR 


012454 


000240 






NOP 


PC, TESTA 


012456 


004737 


013402 




JSR 


012462 


000207 






RTS 


PC 
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811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 



GLOBAL SUBROUTINES 



SEO 26 



;///////////////////////////////////////////////////////////////////////////// 
;/ THE GLOBAL SUBROUTINES ARE CALLED Bi MORE THAN ONE TEST 

.///////////////////////////////////////////////////////////////////////////// 



.SBTTL RUIND GLOBAL SUBROUTINE --PERFORM REWIND- 



CLEAR Tfi79 INHIBIT BIT 
SEV DATA WORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET GO BIT 

WAIT FOR UkERA'ION 



.SBTTL UTIDB GLOBAL SUBROUTINE —WRITE ID BLOCK— 



012464 


042777 


000001 


167552 WTIDB: 


BIC 


4r6IT0,aTRSR 


012^72 


012777 


000000 


167546 


MOV 


#0,aTRWC 


012500 


012777 


000000 


167542 


MOV 


#0,aTRBA 


012'506 


012777 


000432 


167526 


MOV 


#WIDB,8TRCR 


012514 


052777 


000001 


167520 


BIS 


#8IT0,aTRCR 


012522 


000240 






NOP 




012524 


004737 


013402 




JSR 


PC, TESTA 


012530 


000207 






RTS 


PC 



CLEAR INHIBIT BIT 
SET DATA WORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET GO BIT IN FUNCTION 

WAIT FOR OPERATION 



.SBTTL OFFLN GLOBAL SUBROUTINE —PERFORM OFF LINE COMMAND— 



012532 


042777 


000001 


167504 OFFLN: 


BIC 


JTBITO.aTRSR 


012540 


012777 


000000 


167500 


MOV 


#0,aTRWC 


012546 


012777 


000000 


167474 


MOV 


#0,aTRBA 


012554 


0U777 


00U36 


167460 


MOV 


#0FLINE,aTRCR 


012562 


052777 


000001 


167452 


BIS 


»BITO,aTRCR 


012570 


000240 






NOP 




012572 


004737 


013402 




JSR 


PC. TESTA 


012576 


000207 






RTS 


PC 



CLEAR TR79 INHIBIT BIT 
SET DATA WORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET GO BIT 

WAIT FOR OPERATION 



.SBTTL GEOT GLOBAL SUBROUTINE —PERFORM FAST FORWARD TO EOT— 



9 3 

SEQ 

CZTRAC.Pn 30-DEC-81 11:08 6E0T 6L0SAL SUBROUTINE —PERFORM FAST FORWARD TO EOT— 

867 
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868 
869 

87C 012600 

871 012606 

872 012614 

873 012622 

874 012630 

875 012636 

876 012640 
877 

878 
879 
880 
881 
882 
883 

884 012642 

885 012650 

886 012656 

887 012664 

888 012672 

889 012700 

890 012702 

891 012706 
892 

893 
894 
895 
896 
897 
898 

899 012710 

900 012716 

901 012724 

902 012732 

903 012740 

904 012746 

905 012750 

906 012754 
907 

908 
909 
910 
911 
912 



042777 
012777 
012777 
012777 
052777 
000240 
000207 



042777 
013777 
012777 
012777 
052777 
000240 
004737 
000207 



042777 
013777 
013777 
O'l 2777 
052777 
000240 
004737 
000207 



000001 
000000 
000000 
001026 
000001 



000001 
002214 
002262 
000402 
000001 

013402 



000001 
002214 
002216 
000402 
000001 

013402 



C 3 

GEOT GLOBAL SUBROUTINE —PERFORM FAST FORWARD TO EOT— 



5EQ 



167436 
16743? 
167426 
167412 
167404 



GEOT: 



BIC 

nov 
nov 
nov 

BIS 
NOP 
RTS 



#BITO.aTRSR 

#o,aTRyc 

#0,aTRBA 

'GOEQT.aTRCR 

«BITO,aTRCR 

PC 



CLEAR TR79 INHIBIT BIT 
SET DATA yORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET 60 BIT 



.SBTTL yRT 



GLOBAL SUBROUTINE —PERFORM WRITE FROM OUTPUT— 



167374 
167370 
167364 
167350 
167342 



WRT: BIC /TBJTO.aTRSR 

nov USEB.aTRWC 

nov «OUTPUT,aTRBA 

nov #WRITE,aTRCR 

BIS /TBITO.aTRCR 
NOP 

JSR PC, TESTA 

RTS PC 



CLEAR TR79 INHIBIT BIT 
SET DATA WORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET 60 BIT 

WAIT FOR OPERATION 



.SBTTL WRTC 6L0BAL SUBROUTINE — PERFGRH WRITE FROM aUSEC— 



167326 
167322 
167316 
167302 
167274 



yRTC: BIC #BITO,aTRSR 

nov usEB.aTRyc 

nov USEC.aTRBA 

nov #WRITE,aTRCR 

BIS #BITO,aTRCR 
NOP 

JSR PC, TESTA 

RTS PC 



CLEAR TR79 INHIBIT BIT 
SET DATA WORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET 60 BIT 

WAIT FOR OPERATION 



.SBTTL RD GLOBAL SUBROUTINE — PERFORn READ FROM INPUT— 



CZTRAC.P11 30-DEC-81 11:08 

913 
914 

915 012756 042777 000001 167260 

916 012764 013777 002214 167254 

917 012772 012777 006322 167250 

918 013000 012777 000004 167234 

919 013006 052777 000001 167226 

920 013014 000240 

921 013016 004737 013402 

922 013022 000207 
923 

924 
925 
926 
927 
928 
929 

930 013024 042777 C00001 167212 

931 013032 013777 002214 167206 

932 013040 012777 000000 167202 

933 013046 012777 001410 167166 

934 013054 052777 000001 167160 

935 013062 000240 

936 013064 004/37 013402 

937 013070 000207 
958 

939 
940 
941 
942 
943 
944 

945 013072 042777 000001 167144 

946 013100 012777 000000 167140 

947 013106 012777 000000 167134 

948 013114 012777 001034 167120 

949 013122 052777 000001 167112 

950 013130 000240 

951 013132 004737 013402 

952 013136 000207 
953 

954 
955 
956 



D 3 

RD GLOBAL SUBROUTINE —PERFORM READ FROM INPUT— 



SEO 29 



RD: BIC #BITO,aTRSR 

MOV USEB.aTRWC 

MOV #lNPUT,aTRBA 

MOV iTREAD.aTRCR 

BIS iTBITO^aTRCR 
NOP 

JSR PC, TESTA 

RTS PC 



.•CLEAR TR79 INHIBIT BIT 
:SET DATA WORD COUNT 
;SET DATA ADDRESS 
;SET FUNCTION 
;SET 60 BIT 

•WAIT FOR OPERATION 



.SBTTL SPR GLOBAL SUBROUTINE —PERFORM SPACE REVERSE— 



SPR: BIC #8IT0,aTRSR 

MOV USE6,aTRWC 

MOV «0,aTRBA 

MOV #SPACER«aTRCR 

BIS «8IT0,aTRCR 
NOP 

JSR PC, TESTA 

RTS PC 



; CLEAR TR79 INHIBIT BIT 
:SET DATA WORD COUNT 
;SET DATA ADDRESS 
;SET FUNCTION 
;SET 60 BIT 

• 

•WAIT FOR OPERATION 



.SBTTL UTEOF 6L0BAL SUBROUTINE —WRITE EOF (TAPE HARK)— 



WTEOF: BIC «81T0,aTRSR 

MOV #0,aTRWC 

MOV fO,aTRBA 

MOV «WEOF,aTRCR 

BIS «8IT0,aTRCR 
NOP 

JSR PC, TESTA 

RTS PC 



.•CLEAR TR79 INHIBIT BIT 
;SET DATA WORD COUNT 
:SET DATA ADDRESS 
:SET FUNCTION 
;SET 60 BIT 

•WAIT FOR OPERATION 



.SBTTL ERS GLOBAL SUBROUTINE —PERFORM ERASE— 



013U0 


0i>2777 


000001 


167076 ERS: 


BJC 


013U6 


013777 


002214 


167072 


nov 


013154 


012777 


002262 


167066 


nov 


013162 


012777 


000016 


167052 


MOV 


013170 


052777 


000001 


167044 


BIS 


013176 


000240 






NOP 


013200 


004737 


013402 




JSR 


013204 


000207 






RTS 
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957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 



E 3 

ERS GLOBAL SUBROUTINE —PERFORM ERASE— 



«6IT0,aTRSR 
USEB.aTRWC 
#OUTPUT«aTRBA 
'ERASE. aTRCR 
»BIT0,8TRCR 

PC.TESTA 
PC 



SEQ 30 



CLEAR TR79 INHIBIT BIT 
SET DATA WORD COUNT 
SET DATA ADDRESS 
SET FUNCTION 
SET 60 BIT 

WAIT FOR OPERATION 
RETURN 



.SBTTL DOILC GLOBAL SUBROUTINE —PERFORM ILLEGAL OPERATION- 



013206 


042777 


000001 


167030 DOILC: 


BJC 


#BITO.aTRSR 
«0,aTRWC 


013214 


012777 


000000 


167024 


MOV 


013222 


012777 


000000 


167020 


MOV 


#0,aTRBA 


013230 


052737 


000001 


002212 


BIS 


»BJTO,USEA 


013236 


013777 


002212 


166776 


MOV 


USEA,aTRCR 


013244 


000240 






NOP 




013246 


004737 


013402 




JSR 


PC. TESTA 


013252 


000307 






RTS 


PC 



; CLEAR INHIBIT BIT 
;SET DATA WORD COUNT 
;SET DATA ADDRESS 
;SET 60 BIT IN FUNCTION 
.•INITIATE OPERATION 

;WAIT FOR OPERATION 
.•RETURN 



013254 
013254 
013260 
013262 
013266 
013270 
013272 
013274 
013300 
013304 
013310 
013314 
013320 
013322 



012702 
010246 
012701 
005022 
077102 
012602 
017722 
017722 
017722 
017722 
004737 
005002 
000207 



.SBTTL CPYTRR COPY TR79 REGISTERS AND CLEAR EXPECTED RESULTS 



002164 
000010 



166742 
166740 
166736 
166734 
013442 



CPYTRR: 



10$: 



MOV #ATRCR.R2 

MOV R2--(SP) 

MOV flO.RI 

CLR (R25+ 

SOB RI.IOS 

MOV (SP)*.R2 

MOV aTRCR.(R2)* 

MOV aTRSR.(R2)* 

MOV aTRWC.(R2}* 

MOV aTR8A.(R2)« 

JSR PC.CHKBRK 

CLR R2 

RTS PC 



POINT TO 1ST COPY LOCATION 

SAVE POINTER 

SPECIFY COUNTER 

CLEAR COPY LOCATIONS 

IF MORE TO CLEAR THEN REPEAT CLEAR 

RESTORE COPY LOCATION POINTER 

COPY TR79 COMMAND REGISTER 

COPY TR79 STATUS REGISTER 

COPY TR79 WORD COUNT REGISTER 

COPY TR79 BUS ADDRESS REGISTER 

CHECK FOR OPERvMOR INTERRUPT 

CLEAR ERROR INDICATOR 

RETURN 



.SBTTL CPWR SUBROUTINE TO CLEAR TR79 INTERFACE 



fZTRAC. 


PIT 


50-DEC-81 


1008 






1009 


013324 


052777 


1010 


013332 


032777 


1011 


013340 


001374 


1012 


013342 


000207 


1013 






1014 






1015 






1016 






1017 






1018 






1019 


013344 


013737 


1020 


013352 


000403 


1021 






1022 


013354 


013737 


1023 


013362 


005001 


1024 


013364 


013702 


1025 


013370 


005201 


1026 


013372 


001376 


1027 


013374 


005302 


1028 


013376 


001374 


1029 


013400 


000207 


1030 






1031 






1032 






1033 






1034 






1035 







F 3 

CPUR SUBROUTINE TO CLEAR TR79 INTERFACE 



RUWAIT: 
UUAIT: 

10$: 



SEO 31 



CPWR: BIS *PURCLR,aTRCR 

10$: BIT #PURCLR,aTRCR 

BNE 10$ 

RTS PC 



CLEAR TR79 COMMAND AND STATUS 
HAS CLEAR OPERATION COMPLETED? 
IF NO. WAIT UNTIL IT DOES 
RETURN 



.S8TTL WUAIT SUBROUTINE TO WAIT A SPECIFIED TIME INTERVAL 



TWAIT: MOV 
BR 



MOV 
CLR 
MOV 
INC 
BNE 
DEC 
BNE 
RTS 



DLXTOF.DLX 
WUAIT 

DLXRW.DLX 
R1 

DLX,R2 

Rl 

10$ 

R2 

10$ 

PC 



.-SPECIFY DELAY MULTIPLIER FOR TAPE OFF LINE 
.•WAIT 

SPECIFY READ/WRITE DELAY MULTIPLIER 
CLEAR DELAY CONSTANT REGISTER 
COPY DELAY MULTIPLIER 
COUNT A TICK 
KEEP TICKING 

COUNT DOWN DELAY MULTIPLIER 
KEEP TICKING 
RETURN TO CALLER 



.S8TTL TESTA GLOBAL SUBROUTINE WAIT FOR TR79 OPERATION 



005001 

005201 
OOUU 

032777 100000 
001010 

032777 002000 
001766 

032777 000200 
001762 

000207 
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1036 
1037 
1038 
1039 
10AO 
10A1 
1042 
1043 

1044 013402 

1045 013404 

1046 013404 

1047 013406 

1048 013410 

1049 013416 

1050 CI 3420 

1051 013426 

1052 013430 

1053 013436 

1054 013440 

1055 013440 
1056 

1057 
1058 
1059 
1060 
1061 
1062 

1063 013442 

1064 013442 

1065 013442 

1066 013444 
1067 

1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 

1076 013446 

1077 013446 

1078 013454 

1079 013456 

1080 013456 

1081 013462 

1082 013466 

1083 013472 

1084 013474 

1085 013476 

1086 013502 

1087 013506 

1088 013510 

1089 013516 

1090 013520 

1091 013522 



104422 
000207 



032777 
001426 

012746 
012746 
012746 
010600 
104417 
062706 
013702 
005001 
032777 
001405 
005201 
001372 



G 3 

TESTA GLOBAL SUBROUTINE WAIT FOR TR('9 OPERATION 



.•TESTA IS ENTERED AFTER A TR79 OPERATION IS INITIATED 

IF TIME ELAPSED > 40 MI CROSEC (ROUGHLY) THtN RETURN 

IF TR79 ERROR BIT = 1 THEN RETURN 

IF MTRDY = 1 AND CURDY = 1 THEN RETURN 

ELSE KEEP CHECKING 



SFO 3? 



TESTA: 
IS: 



166624 
166614 
166604 



2S: 



CLR R1 

INC R1 

BEQ 2S 

BIT *BIT15.aTRCR 

BNE 2S 

BIT #8IT10.aTRCR 

BEQ IS 

BIT #BIT7«aTRCR 

BEQ IS 

RTS PC 



SET DELAY CONSTANT 
TICK 

IF DELAY CONSTANT = 0 
IF TR79 ERROR BIT s 1 

THEN EXIT 
IF HTRDY BIT = 0 

THEN KEEP CHECKING 
IF CURDY BIT s 0 
THEN KEEP CHECKING 

RETURN 



THEN EXIT 



.SBTTL CHKBRK SUBROUTINE CHECKS FOR OPERATOR INTERRUPT 
CHKBRK: 



BREAK 

TRAP 

RTS 



CS6RK 
PC 



.•CHECK FOR OPERATOR INTERRUPT 



.SBTTL TESTC GLOBAL SUBROUTINE ASK OPERATOR TO INSTALL WRITE ENABLE RING 



TESTC: 



10S: 



000004 166570 



022103 
020473 
000002 



000006 
002230 

000004 166526 20S: 



BIT «8JT2,aTRSR 

BEQ 30S 

PRINTF fFHTTXT.fFHTRGI 

«0V fFmRGI.-(SP) 

MOV fFmTXT,-(SP) 

MOV *2.-(SP) 

«0V SP.RO 

TRAP CSPNTF 

ADD «6,SP 

HOV DLXT0F,R2 

CLR R1 

BIT «8IT2,aTRSR 

BEQ 30S 

INC R1 

BNE 20S 



;ASK OPERATOR TO INSTALL RING 
:IF RING IS PRESENT 
'THEN RETURN 

•ASK OPERATOR TO INSTALL RING 



.•SPECIFY DELAY MULTIPLIER 
.SPECIFY DELAY CONSTANT 
;IF RING IS PRESEKT 
:THEN RETURN 
.•COUNT A TICK 
.KEEP CHECKING 
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H 3 

TESTC GLOBAL SUBROUTINE ASK OPERATOR TO INSTALL WRITE ENABLE RING 



SEO 33 



1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
11C1 



013524 
013526 
013530 
013532 
013532 



005302 
001370 
000752 

000207 



30$: 



DEC 
BNE 
BR 

RTS 



10S 

PC 



;COUNT DOWN DELAY MULTIPLIER 
;KEEP CHECKING 
;ASK AGAIN 
.•RING IS PRESENT 



'.SBTTL CHEKI GLOBAL SUBROUTINE CHECKS TR79 REGISTERS AFTER VALID REWIND 



I 3 
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CHE a GLOBAL SUBROUTINE CHECKS rR79 REGISTERS AFTER VALID REWIND 



SEO 34 



1102 
1 103 


013534 








CHEKI : 






WAIT FOR REWIND IN PROGRESS BIT 


1 10A 


013534 


032777 


000002 


166502 


1$: 


BIT 


/TBITI.aTRSR ; 


1105 


013542 


00137<i 






BNE 


1$ ; 


TO CLEAR 


1136 


013544 


032777 


000040 


166472 


2$: 


BIT 


/TBITS.aTRSR ; 


WAIT FOR AT LOAD POINT STATUS 


1107 


013552 


001774 






BEQ 


2$ ; 


TO BE ASSERTED 


1108 


013554 


004737 


013254 






JSR 


PC.CPYTRR ; 
/r3^20,ETRCR 


copy TR79 REGISTERS 


1109 


013560 


012737 


003220 


002174 




MOV 


SPECIFY EXPECTED TRCR 


mo 


013566 


012737 


002041 
002174 


002176 




nov 


«20A1,ETRSR 


SPECIFY EXPECTED RESULT 


1111 


LI 3574 


023737 


002 164 




CMP 


ETRCR,ATRCR 


TEST COMMAND REGISTER 


1*12 


013602 


001401 






BEQ 


10$ 


OK 


1113 


013604 


005202 








INC 


R2 


INDICATE ERROR 


11U 


013606 








10$: 






■TEST STATUS REGISTER 


1115 


013606 


023737 


002176 


002166 




CMP 


ETRSR,ATRSR 


1116 


013614 


001401 








BEQ 


20$ 


■OK 


1117 


013616 
013620 


005202 








INC 


R2 


■INDICATE ERROR 


1118 








20$: 




R2 


;ANY ERRORS? 


1119 


01 3620 


005702 








TST 


1120 


013622 


001415 








BEQ 


30$ 


;N0. 


1121 


000001 






ENUn s 


•D<ENUH 


♦ 1> 


; INCREMENT ERROR NUMBER 


1122 


013624 


012737 


000003 


002154 




NOV 


*T.ESFT,ERRTYP 


:SPECIFY SOFT ERROR 


1123 


013632 


012737 


000001 


002156 




NOV 


#ENUM,ERRNBR 


;SPECIFY ERROR NUFBcR 


1124 


013640 


012737 


021156 


002160 




MOV 


MRy.ERRNSG 
#ERR4.ERRBLK 


; SPECIFY ERROR MESSAGE 


1125 


013646 


012737 


020064 


002162 




MOV 


; SPECIFY ERROR HANDLER 


1126 


013654 


000261 








SEC 




;SET C = 1 


1127 


013656 


004737 


013324 




30$: 


JSR 


PC.CPWR 


.RESET TR79 


1128 
1129 
1130 
1131 


013662 


000207 








RTS 


PC 












'.S8TTL 


TESTJ 


SUBROUTINE CHECKS TR79 REGISTERS AFTER ILLEGAL COHMANDS 



I 



CZTRAC.P11 
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TESTJ SUBROUTINE CHECKS TR79 REGISTERS AFTER ILLEGAL COWANOS 



1132 










1 1 33 


01 3664 








1 1 5A 


013664 


AA/ 

004737 


A 1 T 7 C / 

01 3354 




1 1 35 


01 3670 


AA/ 71 7 

00** fir 


A 1 7 "5 C / 

013254 




1 1 56 


013674 




1 / TOAA 


Am 1 7/ 
UU^ 1 /^4 


n 37 


A1 T^A^ 

013702 


012737 


AA "5 A/ A 

002040 


AA01 7^ 

UU<: 1 f^6 


i i TO 


A1 ^71 A 


0'*£'if 


AA1 / 7iL 

0014J0 


AAT 1 i.J 

UUi 104 


n 39 


A1 ^ 


A0T7T7 


AA01 7/ 

0021 f 4 


AAO 1 

UUc 1 04 




A1 17*^/ 


AA1 / A1 

001 401 






4 4/1 

1 1*»1 


A1 1 


AAC OAO 

005202 






1 142 


Ai T7TA 

013730 








1 143 


Ai T7TA 

0i3o0 


ATT717 


AA01 7^ 

0021 ^6 


OOt.166 


1 lAA 


013736 


AAi y Ai 

001 hOi 






1 145 


A1 A 

013740 


AAC ^A^ 

005202 






1 146 


A1 T7y ^ 










A1 17/ O 


AAC7A^ 

005 02 






1 148 


01 3^44 


AAi / AI 

001401 






1 149 


A1 "97/ ^ 

01 5f**o 


AAA'^Xi 

000261 






i i CA 

1 1 50 


A1 T7CA 

013730 


AAy 717 

004 f5f 


AI 770/. 

015jc4 




11 C1 

1 1 J 1 


U 1 jf 3"» 


\/wc\lf 






1152 










1153 










1154 










1155 










1156 











CHCKJ: 



10$: 



20$: 



30$: 



JSR Pr.RUWAIT 

JSR PC.CPrTRR 

MOV #U2200.ETRCR 

MOV «2040,ETRSR 

BIC #1436,ATRCR 

CMP ETRCR,ATRCR 

BEQ 10$ 

INC R2 

CMP ETRSR.ATRSR 

BEQ 20$ 

INC R2 

TST R2 

BEQ 30$ 

SEC 

JSR PC.CPWR 

RTS PC 



.CHECKS TR79 REGISTERS AFTER ILLEGAL COMMANDS 
;WAIT 

;C0Pr TR79 REGISTERS 
SPECIFY EXPECTED TRCR 
jEXPECTED STATUS 

;CLEAR UNWANTED BITS IN COMMAND REGISTER 
iTEST COMMAND REGISTER 
; COMMAND REGISTER OK 
INDICATE ERROR 

TEST STATUS REGISTER 
STATUS OK 
INDICATE ERROR 

IF NO REGISTER ERRORS 
EXIT WITH C s 0 
SET C s 1 
TR79 POWER CLEAR 



.SBTTL CHEKL GLOBAL SUBROUTINE CHECKS REGISTERS AFTER WRITING EOF (TAPE MARK) 
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1157 

1158 

1159 

1160 

1161 

1162 

1163 

116A 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

117A 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 



013756 
013762 
013766 
01377A 
0U002 
OUOlO 
0U012 
OUOU 
014014 
014022 
014024 
014026 
014026 
014030 

014032 
014040 
014046 
014054 
014062 
014064 



004737 
004737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005702 
001415 
000002 
012737 
012737 
012737 
012737 
000261 
000207 



013354 
013254 
003234 
00201 1 
002174 



000003 
000002 
022413 
020064 



K 3 

CHEKL GLOBAL SUBROUTINE CHECKS REGISTERS AFTER WRITING EOF (TAPE NARK) 



SEQ 36 



CHEKL: 



002174 
002176 
002164 



002176 002166 



002154 
002156 
002160 
002162 



10$: 
20$: 

ENun 

30$: 



JSR PCRUUAIT 

JSR PC.CPYTRR 

MOV #3234,ETRCR 

MOV #2011,£TRSR 

CMP ETRCR.ATRCR 

BEQ 10$ 

INC R2 

CMP ETRSR.ATRSR 

BEQ 20$ 

INC R2 

TST R2 

SEQ 30$ 
»D<ENUM ♦ 1> 

MOV #T.ESFT.ERRTYP 

MOV #ENUM,ERRNBR 

MOV mwEFFL.ERRMSG 

MOV fERR4«ERRBLK 
SEC 

RTS PC 



WAIT 

COPY TP79 REGISTERS 

EXPECTED 

EXPcCTEO 

TEST COMMAND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 

ANY ERRORS 
NO 

INCREMENT ERROR NUMBER 
SPECIFY SOFT ERROR 
SPECIFY ERROR NUMBER 
SPECIFY ERROR MESSAGE 
SPECIFY ERROR H.««IDLER 
SET C = 1 
RETURN 



.SBTTL TESTN GLOBAL SUBftOUTINE CHECK IF TR79 READY FOR OPERATION 
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118A 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 

im 

1195 
1196 
1197 
119"^ 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 



L 3 

TESTN GLOBAL SUBROUTINE CHECK IF TR79 READY FOR OPERATION 
TESTN: 

IF TRANSPORT IS NOT ON LINE 
THEN RECORD ERROR 

RETURN WITH C =1 
ELSE IF CONTROL UNIT OR TRANSPORT NOT READY 
THEN RECORD ERROR 

RETURN yiTH C = 1 
ELSE RETURN WITH C = 0 (TR79 READY FOR OPERATION) 



SEO 37 



.ENABL LSB 



014066 


032777 


002000 


166150 


TESTN: 


B ff T 

BIT 


01 4074 


001007 








BNc 




AAAAAT 

000003 






ENUn = 


*r\^ckii m 
DvcNUn 


014076 


012737 


020766 


002160 




MAI/ 


014104 


012737 


000003 


002156 




nov 


014112 


000415 








BR 


014114 








10S: 




014114 


032777 


002000 


166120 


TSTRDY: 


BIT 


014122 


001403 








BEQ 


014124 


105777 


166112 






TSTS 


014130 


100415 








Bni 


014132 








20S. 






000004 






ENUn = 


*D<ENUn 


014132 


012737 


021040 


002160 




NOV 


014140 


012737 


000004 


002156 


30$: 


NOV 


014146 










014146 


012737 


000003 


002154 




NOV 


014154 


012737 


017754 


002162 




NOV 


014162 


000261 








SEC 


014164 


000207 






40S: 


RTS 










.DSABL 












.SBTTL 



#BIT10,aTRSR 
10S 

♦ 1> 

#EN2,ERRNSG 

#ENUN,ERRNBR 

30$ 

#NTRDY,aTRCR 

20$ 

aTRCR 

40$ 

♦ 1> 

#En2A,ERRNS6 
»ENUN,ERRN8R 

*T.ESfT.£RRTyP 
#ERR3,ERRBLK 

PC 
LSB 



.-BEGIN LOCAL SYMBOL BLOCK 

:IF TRANSPORT IS ON LINE 
; THEN CHECK READY 
;NOT ON LINE 

;INCRENENT ERROR NUMBER 
.SPECIFY POINTER TO ERROR NESSAGE 
.-SPECIFY ERROR NUMBER 
;60T0 CCNPLETE ERROR REPORT 

.-ON LINE 

;IF TRANSPORT NOT READY 
; THEN RECORD ERROR 
;IF CONTROL UNIT READY 
; THEN EXIT WITH C = 0 
;NOT READY 

.INCREMENT ERROR NUMBER 
.•SPECIFY POINTER TO ERROR MESSAGE 
; SPECIFY ERROR NUMBER 
.'CONPLETE ERROR RECORD 

iSPECIFr 'SOFT' ERROR 
; SPECIFY POINTER TO ERROR HANDLER 
;SET C ' 1 
'RE TURN 

;EMD LOCAL SYMBOL BLOCK 



.SBTTL TESTNN GLOBAL SUBROUTINE ASK OPERATOR TO PUT TAPE ON LINE 
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n 3 

TESTNN GLOBAL SUBROUTINE ASK OPERATOR TO PUT TAPE ON LINE 



SEO 38 



1222 








1223 








1224 








1225 








1226 








1227 








1228 








1229 








1230 








1231 








1232 








1233 


014166 






1234 


014166 


013702 


002230 


1235 


014172 


005001 




1236 


014174 


032777 


002000 


1237 


014202 


001017 




1238 


014204 


005201 




1239 


014206 


001372 




1240 


014210 


005302 




1241 


014212 


001370 




1242 








1243 


014214 






1244 


014214 


012746 


021057 


1245 


CI 4220 


012746 


020473 


1246 


014224 


012746 


000002 


1247 


014230 


010600 




1248 


014232 


104417 




1249 


014234 


062706 


000006 


1250 


014240 


000752 




1251 


014242 






1252 


014242 


005777 


165774 


1253 
1254 


014246 


100001 




014250 


000261 




1255 


014252 


000207 




1256 








1257 








1258 








1259 








1260 









TESTNN: 
10$: 

166042 20S: 



TESTN1 



30$: 



40S: 



TESTNN: 
TESTN1: 



.ENABL LS8 



nov 

CLR 
BIT 
BNE 
INC 
BNE 
DEC 
BNE 

PftlNTF 

NOV 

ttOV 

NOV 

NOV 

TRAP 

ADD 

BR 

rsT 

BPL 
SEC 
RTS 
.OSABL 



IF TRANSPORT IS ON LINE THEN TEST If READY 
IF 1 NINUTE HAS ELAPSED THEN 
ASK OPERATOR TO PUT TRANSPORT ON LINE 
GOTO TESTNN 



DLXTOF, P2 
R1 

#8ITlO,aTRSR 

30$ 

R1 

20$ 

R2 

20$ 

#FHTTXT,#N2A 

*M2A,-(SP) 

*F«TTXT--(SP) 

*2,-<SP) 

$P,RO 

C$PNTF 

#6.SP 

loi 

8TRCR 
40$ 

PC 
LS8 



:BEGIN LOCAL SYMBOL BLOCK 

;WAIT FOR TRANSPORT ON LINE 

.SPECIFY DELAY MULTIPLIER 

.-SPECIFY DELAY CONSTANT 

;IF TRANSPORT IS ON LINE 

; THEN CHiCK ERROR INDICATOR 

; COUNT A TICK 

.KEEP CHECKING 

; COUNT DOWN DELAY MULTIPLIER 

:KEFP CHECKING 
;ASK OPERATOR TO PUT TRANSPORT ON LIME 

:ASK OPERATOR TO PUT TRANSPORT ON LINE 



;0N LINE 



..CHECK IF ON irC 

;IF NO ERROR 
; THEN RETURN WITH C - 0 
: ELSE RETURN VITH C - 1 

;ENO LOCAL SYMBOL BLOCK 



.SBTTL CHEKO - TEST RESULT AFTER WRITE 108 FROM LOAD POINT 
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1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 



014254 
014254 
014260 
014264 
014272 
014300 
014306 
014310 
014312 
014312 
014320 
014322 
014324 
014324 
014326 

014330 
014336 
014344 
014352 
014360 
014362 



004737 
004737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005702 
001415 
000005 
012737 
012737 
012737 
012737 
000261 
000207 



013354 
013254 
002632 
002021 
002174 



000003 
000005 
022504 
020064 



N 3 

CHEKO TEST RESULT AFTER WRITE ID8 FROM LOAD POINT 



SEO 39 



CHEKO: 



002174 
002176 
002164 



002176 002166 



002154 
002156 
002160 
002162 



10$: 

20$: 
ENUM 

30$: 



JSR 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 



PCRUUAIT 

PC.CPYTRR 

/r2632,ETRCR 

/r2021,ETRSR 

ETRCR,ATRCR 

10$ 

R2 



CMP ETRSR,ATRSR 

BEQ 20$ 

INC R2 

TST R2 

BEQ 30$ 
*D<ENUM + 1> 

MOV #T.ESFT.ERRTYP 

MOV #ENUM,ERRN8R 

MOV «nWJLPFL.ERRMSG 

MOV #ERR4,ERRBLK 
SEC 

RTS PC 



WAIT 

COPr TR79 REGISTERS, CLEAR EXPECTED RESULTS 

SPECIFY EXPECTED RESULT 

SPECIFY EXPECTED RESULT 

TEST COMMAND REGISTER 

OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 

ANY ERRORS? 
NO 

INCREMENT ERROR NUMBER 

SPECIFY 'SOFT* ERROR 

SPECIFY ERROR NUWER 

SPECIFY POINTER TO ERROR MESSAGE 

SPECIFY POINTER TO ERROR HANDLER 

SET C = 1 

RETURN 



.SBTTL CHEKS SUBROUTINE CHECKS DATA READ IN TEST4 AND TESTS 
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1290 














^291 














1 <92 














1293 














1294 














1295 














1296 














1297 


014364 


012701 


AA^TOO 

00632c 




CHcKS: 


nov 


1298 


A^ y T*7A 

014370 


012702 


00c26c 






nov 


1299 


014374 


A1 T*^AT 

013703 


AAT5i y 

002214 






nov 


1300 


A1 y y f\f\ 

014400 


AI A1 T*7 
0101 if 


AA "5 O i A 

002210 




1 Aft . 

10»: 


■IA\i 

nov 


1301 


Ai y y Ay 


AI i 1 T*7 

011137 


AAT OAy 

002204 






MAW 

nov 


1302 


Ai y y i A 


Ai 1 TT^ 

01 1 iif 


AAOOAA 

00cc06 






HAU 

nov 


i TAT 

1303 


t\A J J i y 


02212c 








tnp 


1304 


014416 


AA1 AAT 

001003 








BNC 


1 TAC 


Ai y y ^A 

014420 


AAC ^AT 

003203 








INC 


i TA^ 

1306 


Ai y y 

014422 


001 366 








BNc 


1 TA*7 

1307 


Ai y y ^y 
014424 


000416 








BR 


1 TAO 

1308 


A1 y y ^z. 

014A26 








on* . 
cU*: 




1 TAO 

1309 




AAAAAZ 
000006 






CUI 111 «i 




i Ti A 

1310 


AI y / 
01h«k;6 


A1 0777 

01c737 


AAAAA7 
00U003 


OOcI JH 




nov 


1 TI 1 

131 1 


AI y / Ty 
01 


A1 07T7 


AAAAAit 

000006 


Art01 <A 

OOc 1 56 




nov 


1 T1 ^ 


OIhhhc 


A1 0777 


nooi^z. 7 
Ucc6'«j 


OUc I6U 




nuv 


1 j1 J 


01hh50 


ni 0777 


nonono 
UcUcUc 


UUc 1 6c 




nuv 


1 T1 / 

1 jIh 


AI y / 

01HH36 


00Uc61 








5c t 


1 TI C 

1 J 1 J 


m y y^tA 


OOU^U 1 








DO 

Bn 


1 T1 

1 3 1 O 


AI y y ^ 

01*»«»6c 








7nt • 




1 TI 7 


0 l«»«»6£ 


nnno/ 1 
UUU<:*»1 








ILl 


1 J 1 o 




nnn?07 

UUvCUr 










1319 














1320 














1321 














1322 










'.S8TTL 


CHEKS1 


1323 










m 





B 4 

CHEKS SUBROUTINE CHECKS DATA READ IN TEST4 AND TESTS 



; COMPARE DATA WRITTEN FROM OUTPUT AREA 

; UlTH DATA READ INTO INPUT AREA 

;IF ALL COMPARES riELD 'tOUAL" 

; THEN EXIT WITH C = 0 

: ELSE RECORD ERROR AND EXIT WITH C = 1 



SEO 40 



*INPUT,R1 

♦OUTPUT. R2 

USEB,R3 

Rl AINPUT 

aRl.AINPUT 

aR2,E INPUT 

(R1)*.(R2)* 

20$ 

R3 

10$ 

30t 

♦ 1> 

#T.ESFT,ERRTyP 
«ENUN.ERRNBR 
»nRDERR,ERRNS6 
«ERRU,ERRBLK 

40$ 



PC 



POINT TO DATA READ 
POINT TO DATA WRITTEN 
COPy COUNT 

SPECIFY INPUT LOCATION 
copy DATA READ 
COPY DATA WRITTEN 
CHECK INPUT WITH OUTPUT 
ERROR 

OK. INCREMENT WORD COUNT 
CHECK NEXT WORD OF DATA 
ALL DONE. NO ERRORS 

INCREMENT ERROR NUMBER 

SPECIFY 'SOFT* ERROR 

SPECIFY ERROR NUMBER 

SPECIFY POINTER TO ERROR MESSAGE 

SPECIFY POINTER TO ERROR HANDLER 

SET C = 1 



;SET C = 0 
.•RETURN 



SUBROUTINE CLEARS INPUT AREA 



CZTRAC.P11 30-DEC-81 11:08 



C 4 

CHEKS1 SUBROUTINE CLEARS INPUT AREA 



1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 



014466 
014466 
014472 
014476 
014500 
014502 
014504 



012701 
012702 
005021 
005202 
001375 
000207 



006322 
1 77000 



CHEKS1 



10S: 



MOV 
MOV 
CLR 
INC 
BNE 
RTS 



#INPUT,R1 

#-1000. R? 

(RIU 

R2 

10$ 

PC 



SEQ 41 



POINT TO INPUT AREA 

SPECIFY COUNT FOR CLEAR INPUT 

CLEAR INPUT WORD 

COUNT 

CONTINUE CLEARING 
RETURN 



.SBTTL C.HEKU GLOBAL SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE OVEA EOf 



D 4 

SEQ 42 

CZTRAC.P11 30-DEC-81 11:08 CHEKU GL08AL SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE OVER EOF 



1337 


















1338 


014506 


004737 


0133'>4 




CHEKU: 


JSR 


PC.RUUAIT 


;ua;t 


1339 


014512 


0C4737 


013254 






JSR 


PC.CPYTRR 


;COPY TR79 REGISTERS 


1340 


014516 


012737 


003610 


002174 




MOV 


*3610,ETRCR 


.•EXPECTED 


1341 


014524 


012737 


00201 1 


002176 




MOV 


*2011 ,ETRSR 


.•EXPECTED 


1342 


014532 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR 


;TEST COMMAND REGISTER 


1343 


014540 


001401 








BEQ 


10$ 


;0K 


1344 


014542 


005202 








JNC 


R? 


.•INDICATE ERROR 


1345 


014544 








10$: 








1346 


014544 


023737 


002176 


002166 




CMP 


ETRSR,ATRSR 


.-TEST THE STATUS REGISTER 


1347 


014552 


001401 








BEQ 


20$ 


;0K 


1348 


014554 


005202 








INC 


R2 


.'INDICATE ERROR 


1349 


014556 








20$: 








1350 


014556 


005737 


002172 






TST 


ATR8A 


.-TEST BUFFER ADDRESS 


1351 


014562 


001401 








BEQ 


30$ 


;0K 


1352 


014564 


005202 








INC 


R2 


.•INDICATE ERROR 


1353 


014566 








30$: 








1354 


014566 


005737 


0021 70 






TST 


ATRUC 


.'TEST UORD COUNT 


1355 


014572 


001401 








BEQ 


40$ 


;0K 


1356 


014574 


005202 








INC 


R2 


.•INDICATE ERROR 


1357 


014576 








40$: 




R2 




1358 


014576 


005702 








TST 


:ANV ERRORS? 


1359 


014600 


001415 








BEQ 

*D<ENUn 


SOS 


;N0 


1360 




000007 






ENUn - 


♦ 1> 


.•INCREMENT ERROR NUMBER 


1361 


014602 


012737 


000003 


002154 




MOV 


#T.ESFT,ERRTyP 


.•SPECIFY SOFT ERROR 


1362 


014610 


012737 


000007 


002156 




MOV 


#ENUM,ERRNBR 


.'SPECIFY ERROR NUMBER 


1363 


014616 


012737 


022665 


002160 




MAI J 

MOV 


/mSRE F F L , ERRMS6 
#ERR5,ERRBLK 


; SPECIFY ERROR MESSAGE 


1364 


014624 


012737 


020102 


002162 




MOV 


.'SPECIFY ERROR HANDLER 


1365 


014632 


000261 








SEC 




;SET C = 1 


1366 


014634 


000207 






50$: 


RTS 


PC 


.'RETURN 


1367 
1368 
1369 
1370 


























'.SBTTL 
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1371 










9 
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1372 
















1373 


014636 


004737 


013354 




CHEKV: JSR 


PC^RUUAIT 


;UAIT 


1374 


01464? 


004737 


013254 

V 1 J^ J~ 




JSR 


PC.CPVTRR 
#2204.ETRCR 


;COPV TR79 REGISTERS 


1375 


014646 


012737 


002204 


002174 


MOV 


.•EXPECTED 


1376 


014654 


012737 


00201 1 


0021 76 


nov 


4f2011,ETRSR 
/VINPUtfETRBA 


.•EXPECTED 


1377 


014662 


012737 


006322 


002202 


nov 


.•EXPECTED 


1378 


014670 


023737 


002174 


002164 


CMP 


ETRCR.ATRCR 


;TEST COMMAND REGISTER 


1379 


014676 


001401 






BEQ 


10$ 


;0K 


1380 


014700 


005202 






INC 


R2 


.■INDICATE ERROR 


1^1 


014702 








10$: 






1382 


014702 


023737 


002176 


002166 

www ■ w 


CMP 


ETRSR.ATRSR 


.-TEST THE STATUS REGISTER 


1383 


014710 


001401 






BEQ 


20$ 


,0K 


1384 


014712 


005202 






INC 


R2 


.•INDICATE ERROR 


1385 


014714 








20$: 






1386 


014714 


023737 


002202 


002172 


CMP 


ETRBA,ATRBA 


.-TEST BUFFER ADDRESS 


1387 


014722 


001401 






BEQ 


30$ 


;0K 


1388 


014724 


005202 






INC 


R2 


.'INDICATE ERROR 


1389 
1390 


014726 








30$: 






014726 


005737 


002170 




TST 


ATRUC 


.-TEST UORD COUNT 


1391 


014732 


001401 






BEQ 


40$ 


;0K 


1392 


014734 


00S202 






INC 


R2 


.•INDICATE ERROR 


1393 


014736 








40$: 






1394 


014736 


005702 






TST 


R2 


.-ANY ERRORS? 


1395 


014740 


001415 






BEQ 

ENUM = *D<ENUM 


50$ 


;N0 


1396 




000010 






♦ 1> 


.•INCREMENT ERROR NUMBER 


1397 


014742 


012737 


000003 


002154 


MOV 


#T.ESFT,ERRTrP 
#ENUM,ERRNeR 


.•SPECIFY SOFT ERROR 


1398 


014750 


012737 


000010 


002156 


MOV 


.-SPECIFY ERROR NUMBER 


1399 


014756 


012737 


022726 


002160 


MOV 


IMRE F F L « E RRMSG 


;SPECIFV ERROR MESSAGE 


1400 


014764 

0':4772 


012737 


020102 


002162 


MOV 


#ERR5,ERRBLK 


.SPECIFY ERROR HANDLER 


1401 


000261 






SEC 




;SET C = 1 


1402 


014774 


000207 






50$: RTS 


PC 


.•RETURN 


1403 
















1404 
















1405 
























• 






1406 
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K08 


















K09 


014776 


004737 


013354 




CHEKAC : 


JSR 


PCRUWAIT ; 


WAIT 


1410 


015002 


004737 


013254 






JSR 


PC.CPY1RR 

*l62204,ETRCR 

#3001,£TRSR 

»INPUT>176,ETRBA ; 


COPY TR79 REGISTERS 


1411 


01 5006 


012737 


102204 


002174 




MOV 


EXPECTED 


1412 


015014 


012737 


003001 


002176 




MOV 


EXPECTED 


1415 


015022 


012737 


006520 


002202 




MOV 


EXPECTED 


1414 


015030 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR i 


TEST COMMAND REGISTER 


1415 


015036 


001401 






BEQ 


10$ 


OK 


1416 


015040 


005202 








INC 


R2 


INDICATE ERROR 


1417 


015042 








10$: 








1418 


015042 


023737 


0021 76 


002166 




CMP 


ETRSR.ATRSR 


TEST THE STATUS REGISTER 


1419 


015050 


001401 








BEQ 


20$ 


OK 


1420 


015052 


005202 








INC 


R2 


■INDICATE ERROR 


1421 


015054 








20$: 








1422 


015054 


023737 


002202 


002172 




CMP 


ETRBA.ATRBA ;TEST BUFFER ADDRESS 


1423 


015062 


001401 








BEQ 


30$ ;0K 


1424 


015064 


005202 








INC 


R2 ; INDICATE ERROR 


1425 


015066 








30$: 








1426 


015066 


005737 


002170 






TST 


ATRUC .-TEST THE WORD COUN. 


1427 
1428 


015072 


001401 








BEQ 


40$ ;0K 


015074 


005202 








INC 


R2 .INDICATE ERROR 


1429 


















1430 


015076 








40$: 








1431 


015076 


005702 








TST 


R2 


;ANr ERRORS? 


1432 


015100 


001415 








BEQ 


50$ 


;N0 


1433 




000011 






ENUM = 


•D<ENUH 


♦ 1> 


.-INCREMENT ERROR NUMBER 


1434 


015102 


012737 


000003 


002154 




MOV 


fT.ESFT.ERRTYP 


.SPECIFY SOFT ERROR 


1435 


015110 


012737 


00001 1 


002156 




MOV 


«ENUM,ERRN6R 


.SPECIFY ERROR NUMBER 


1436 


015116 


012737 


023166 


002160 




nov 


4mRCFL,ERRMSG 


.•SPECIFY ERROR MESSAGE 


1437 


015124 


0\i75f 




AA^I ^ O 

002 IOC 




MOV 


#ERR5,ERRBLK 


.-SPECIFY ERROR HANDLER 


1438 


015132 


000261 








SEC 


.-SET C = 1 


1439 


015134 


004737 


013324 




50$: 


JSR 


PCCPWR 


.•RESET TR79 


1440 


015140 


000207 








RTS 


PC 


: RE TURN 


1441 


















1442 


















1443 


























• 








1444 
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1445 
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SEQ <.5 



K46 

14A7 

U48 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 



015142 
015146 
015152 
015160 
015166 
015174 
015202 
015210 
015212 
015214 
015214 
015222 
015224 
015226 
015226 
015234 
015236 
015240 
015240 
015246 
015250 

015252 
015252 
015254 

015256 
015264 
015272 
015300 
015306 
015310 
015314 



004737 
004737 
012737 
012737 
012737 
012737 
023737 
001401 
00S202 



013354 
013254 
102204 
003001 
006522 
U7777 
002174 



CHEKAD: 



002174 
002176 
002202 
002200 
002164 



lOS: 



JSR 
JSR 
MOV 

nov 
nov 
nov 

CMP 
BEQ 
INC 



023737 


002176 


002166 




CMP 


001401 








BEQ 


005202 








INC 








20$: 




023737 


002202 


002172 




CMP 


001401 








BEQ 


005202 








INC 








30$: 




023737 


002200 


002170 




CMP 


001401 








BEQ 


005202 








INC 








40$: 




005702 








TST 


001415 








BEQ 


000012 






ENUM s 


*D<£NUM 


012737 


000003 


002154 




MOV 


012737 


000012 


002156 




NOV 


012737 


023166 


002160 




MOV 


012737 


020102 


002162 




MOV 


000261 








SEC 


004737 


013324 




50$: 


JSR 


000207 








RTS 



PCRUWAIT 

PC-CPYTRR 

*l62204,ETRCR 

«001-ETRSR 

«INPUT>200,ETRBA 

*-1,ETRUC 

ETRCR.ATRCR 

10$ 

R2 

ETRSR.ATRSR 

20$ 

R2 

ETRSA.ATRBA 
30$ 
R2 

ETRUCATRUC 
40$ 
R2 



WAIT 

COPY TR79 REGISTERS 

EXPECTED 

EXPECTED 

EXPECTED 

EXPECTED 

TEST COMMAND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 



R2 
50$ 

♦ 1> 

#T.ESfT,ERRTyP 

MRCFL.ERRNSG 
#ERRS,ERR8LK 

PC«CPWR 
PC 



.•TEST BUFFER ADDRESS 
;0K 

.•INDICATE ERROR 

;TEST THE WORD COUNT 
;0K 

.•INDICATE EPRCR 



ANY ERRORS? 
NO 

INCREMENT ERROR NUMBER 
SPECIFY SOFT ERROR 
SPECIFY ERROR NUMBER 
SPECIFY ERROR MESSAGE 
SPECIFY ERROR HANDLER 
SET C = 1 
RESET TR79 
RETURN 
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U8*^ 










H86 


015316 


004737 


013354 




H87 


015322 


004737 


013254 




1488 


01 5326 


012737 


003610 


0021 74 


H89 


01 5334 


01 2737 


002001 


002 1 76 


K90 


015342 


012737 


177701 


002200 


1A91 


015350 


023737 


0021 74 


002164 


1A92 


015356 


001401 






K93 


015360 


005202 






H94 


015362 








1A9S 


015362 


023737 


002176 


002166 


1496 


015370 


001401 






1497 


015372 


005202 






1498 


01 5374 








1499 


015374 


005737 


002172 




1500 


015400 


001401 






1501 


015402 


005202 






1502 


015404 








1503 


015404 


023737 


C02200 


0021 70 


1504 


015412 


001401 






1505 


015414 


005202 






1506 


015416 








1507 


015416 


005702 






1508 


015420 


001415 






1509 




000013 






1510 


015422 


012737 


000C03 


002154 


1511 


015430 


012737 


000013 


002156 


1512 


015436 


012737 


023166 


002160 


1513 


015444 


012737 


020102 


002162 


1514 


015452 


000261 






1515 


015454 


004737 


013324 




1516 


015460 


000207 






1517 










1518 










1519 










1520 










1521 
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CHEKAE 


: JSR 


PC.RUWAIT 


■UAIT 




JSR 


PC.CPrTRR 


;COPy TR79 REGISTERS 




MOV 


#3610,ETRCR 


.'EXPECTED 




NOV 


#2001 <ETRSR 
#17'7al .ETRUC 


.'EXPECTED 




liOV 


; EXPECTED 




CMP 


ETRCR.ATRCR 


;TEST COMMAND REGISTER 




BEO 


10$ 


:0K 




INC 


R2 


.'INDICATE ERROR 


10$: 










CMP 


ETRSR.ATRSR 


;TEST THE STATUS REGISTER 




BEO 


20$ 


;0K 




INC 


R2 


.'INDICATE ERROR 


20$: 










TST 


ATR8A 


.'TEST BUFFER ADDRESS 




BEQ 


30$ 


.'OK 




INC 


R2 


.'INDICATE ERROR 


30$: 










CMP 


ETRUCATRUC 


.-TEST THE yORD COUNT 




BEQ 


40$ 


:0K 




INC 


R2 


.-INDICATE ERROR 


40$: 










TST 


R2 


.-ANY ERRORS? 




BEQ 


50$ 


;N0 


ENUn ' 


•0<ENUM 


♦ 1> 


.'INCREMENT ERROR NUMBER 




NOV 


#T.ESFT,ERRTyP 


.-SPECIFY SOFT ERROR 




NOV 


#ENUN,ERRNBR 


.'SPECIFY ERROR NUMBER 




NOV 


#NRCFL,ERRMSG 


.'SPECIFY ERROR MESSAGE 




NOV 


«ER85,ERR8LK 


.SPECIFY ERROR HANDLER 




SEC 




.'SET C = 1 


50$: 


JSR 


PCCPWR 


;TR79 POWER CLEAR 




RTS 


PC 


.RETURN 
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1522 
1523 
152A 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 



015462 
01 5466 
015472 
015500 
015506 
015514 
015522 
015524 
015526 
015526 
015534 
015536 
015540 
015540 
015544 
015546 
015550 
015550 
015556 
015560 
015562 
015562 
015564 

015566 
015574 
015602 
015610 
015616 
015620 
015624 



004737 
004737 
012737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005737 
001401 
005202 

023737 
001401 
005202 

005702 
001415 
000014 
012737 
012737 
012737 
012737 
000261 
004737 
000207 



013354 
013254 
003610 
002001 
177677 
002174 



000003 
000014 
023166 
020102 

013324 



002174 
002176 
002200 
002164 



002176 002166 



002172 



002200 002170 



CHEKAF: JSR 
JSR 

nov 
nov 
nov 

CMP 

BEQ 
INC 



002154 
002156 
002160 
002162 



10$: 



20$: 



30$: 



40$: 



50$: 



CMP 
BEQ 
INC 

TST 
BEQ 
INC 

CMP 
BEQ 
INC 

TST 
BEQ 

•D<ENUM 
MOV 
MOV 
MOV 
MOV 
SEC 
JSR 
RTS 



PC.RWWAIT 

PC.CPYTRR 

*3610.ETRCR 

*2001-ETRSR 

#1 77677. ETRUC 

ETRCR.ATRCR 

10$ 

R2 

ETRSR.ATRSR 

20$ 

R2 

ATR6A 
30$ 

R2 

ETRWC.ATRUC 

40$ 

R2 

R2 
S0$ 

♦ 1> 

#T.ESFT,ERRTYP 
#ENUM,ERRNBR 
«mCFL,ERRHSG 
#ERR5«ERRBLK 

PCCPWR 
PC 



.•WAIT 

.COPY TR79 REGISTERS 
.•EXPECTED 
.•EXPECTED 
.-EXPECTED 

.-TEST COMMAND REGISTER 
:0K 

.•INDICATE ERROR 

.-TEST THE STATUS REGISTER 

.•INDICATE ERROR 

.TEST BUFFER ADDRESS 

:0K 

.•INDICATE ERROR 

.•TEST THE WORD COUNT 
:0K 

.•INDICATE ERROR 

;ANV ERRORS? 
'NO 

; INCREMENT ERROR NUMBER 
.•SPECIFY SOFT ERROR 
.SPECIFY ERROR NLPBER 
.•SPECIFY ERROR MESSAGE 
.•SPECIFY ERROR HANDLER 
.-SET C = 1 
;TR79 POWER CLEAR 
;RETURN 
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SEQ i8 



1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
157A 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 



015626 
015626 
015632 
015636 
015640 
01 5646 
015650 
01 5654 
015656 
015662 
015670 
015676 
015704 
015706 
015710 
015710 
015716 
015720 
015722 
015722 
015726 
015730 
015732 
015732 
015736 
015740 
015742 
015742 
015744 

015746 
015754 
015762 
015770 
015776 
016000 



004737 
005777 
100407 
032777 
001403 
105777 
100366 
004737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005737 
001401 
005202 

005737 
001401 
005202 

005702 
001415 
000015 
012737 
012737 
012737 
012737 
000261 
000207 



013354 
164404 

002000 164374 



164366 

013254 
003226 
002201 
002174 



002170 



000003 
000015 
023203 
020102 



002174 
002176 
002164 



002176 002166 



002172 



002154 
002156 
002160 
002162 



CHEKAG: 
10$: 



15$: 

20$: 
30$: 
40$: 
50$: 

ENun 



JSR PC.RUWAIT 

TST aTRCR 

BMi 15$ 

BIT #nTRDY, aTRCR 

BEQ 15$ 

TST8 aTRCR 

BPL 10$ 

JSR PC.CPYTRR 

MOV #3226,ETRCR 

MOV #2201,ETRSR 

CMP ETRCR. ATRCR 

BEQ 20$ 

INC R2 

CMP ETRSR.ATRSR 

BEQ 30$ 

INC R2 

TST ATRBA 

BEQ 40$ 

INC R2 

TST ATRWC 

BEQ 50$ 

INC R2 

TST R2 

BEQ 60S 
•D<ENUM ♦ 1> 

NOV fT.ESFT.ERRTYP 

MOV #ENUM<ERRNBR 

MOV «n£TFL,ERRMSG 

MOV fERR5,ERR8LK 
SEC 

RTS PC 



WAIT 

IF ERROR INDICATED 

THEN RECORD TR79 REGISTERS 
IF NOT MTRDy 

THEN RECORD TR79 REGISTERS 
IF NOT CURDY 
THEN KEEP CHECt^ING 
COPY TR79 REGISTERS 
EXPECTED 
EXPECTED 

TEST COMMAND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 

TEST BUFFER ADDRESS 
OK 

INDICATE ERROR 

TEST THE WORD COUNT 
OK 

INDICATE ERROR 

AMY ERRORS? 
NO 

INCREMENT ERROR NUMBER 
SPECIFY SOFT ERROR 
SPECIFY ERROR NUMBER 
SPECIFY ERROR MESSAGE 
SPECIFY ERROR HANDLER 
SET C = 1 
RETURN 



60$: 
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1601 
1602 


016002 


004737 


013354 




CHKAG1 : 


JSR 


PCRUUAIT 


;WMT 


1603 


016006 


004737 


013254 






JSR 


PC.CPYTRR 


;Cwf»Y TR79 REGISTERS 


1604 


016012 


012737 


002602 


002174 




MOV 


#2602,ETRCR 


.•EXPECTED 


1605 


016020 


012737 


002201 


0021 76 




MOV 


*2201.ETRSR 


.•EXPECTED 


1606 


016026 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR 


;TEST COMMAND REGISTER 


1607 


01603A 


001401 








BEQ 


60$ 


;0(( 

.•INDICATE ERROR 


1608 


016036 


005202 








INC 


R2 


1609 


0160A0 








60$: 








1610 


016040 


023737 


0021 76 


002166 




CMP 


ETRSR.ATRSR 


.-TEST THE STATUS REGISTER 


1611 


016046 


001401 






BEQ 


70$ 


;0K 


1612 


016050 


005202 








INC 


R2 


.•INDICATE ERROR 


1613 


016052 








70$: 








16U 


016052 


005737 


002170 






TST 


ATRUC 


.TEST THE WORD COUNT 


1615 


016056 


001401 








BEQ 


80$ 


;0K 


1616 


016060 


005202 








INC 


R2 


; INDICATE ERROR 


1617 


016062 








80$: 








1618 


016062 


005702 








TST 


R2 


.ANY ERRORS 


1619 


016064 


001415 








BEQ 

*D<ENUM 


90$ 


;N0 


1620 


000016 






ENU« = 


♦ 1> 


.INCREMENT ERROR NUMBER 


1621 


016066 


012737 


000003 


002154 




MOV 


#T.ESFT,ERRTYP 


.SPECIFY ERROR TrPE 


1622 


016074 


012737 


000016 


002156 




MOV 


#ENUM«ERRNBR 


.ERROR MfBER 


1623 


016102 


012737 


023301 


AA01 ^A 

002160 






iMMJCICTCl CDDHCA 

ffnwrc 1 P L *CRnnSu 




162A 


016110 


012737 


020120 


002162 




nov 


#ERR6,ERRBLK 


.•ERROR HANDLER 


1625 


016116 


000261 








SEC 




;SET C = 1 


1626 


016120 


000207 






90$: 


RfS 


PC 




1627 


















1628 
1629 
1630 
1631 


























'.SBTTL CHEKAV SUBROUTINE CHECKS REGISTERS AFTER SPACE REVERSE OVER ID BLOCI 

• 



CZTRAC. 


P11 


JO-DEC-81 


11:08 




1632 










1633 


016122 


004737 


01335A 




163A 


016126 


004737 


013254 




1635 


016132 


012737 


003610 


002174 


1636 


016140 


012737 


002061 


002176 


1637 


016146 


013737 


002214 


002200 


1638 


016154 


023737 


002174 


002164 


1639 


016162 


001401 






1640 


016164 


005202 






1641 


016166 








1642 


016166 


023737 


002176 


002166 


1643 


016174 


001401 






1644 


016176 


005202 






1645 


016200 








1646 


016200 


005737 


002172 




1647 


016204 


001401 






1648 


016206 


005202 






1649 


016210 








1650 


016210 


023737 


002200 


002170 


1651 


016216 


001401 






1652 


016220 


005202 






1653 


016222 








1654 


016222 


005702 






1655 


016224 


001415 






1656 




000017 






1657 


016226 


012737 


000003 


002154 


1658 


016234 


012737 


000017 


002156 


1659 


016242 


012737 


023620 


002160 


1660 


016250 


012737 


020102 


002162 


1661 


016256 


000261 






1662 


016260 


000207 






1663 










1664 










1665 










1666 











CHEKAV SUBROUriNE CHECKS REGISTERS AFTER SPACE REVERSE OVER ID BLOCK 



CHEKAV: 


JSR 


PC.RUyAlT 


:UAIT 


JSR 


PC.CPyTRR 


;C0PV TR79 REGISTERS 




MOV 


*3610.ETRCR 


.•EXPECTED 




MOV 


#2061,ETRSR 


.■EXPECTED 




MOV 


USE8.ETRWC 


.EXPECTED 




CMP 


ETRCR.ATRCR 


;TEST CONNAND REGISTER 




BEQ 


10$ 


;0K 




INC 


R2 


.•INDICATE ERROR 


10S: 










CMP 


ETRSR.ATRSR 


.•TEST THE STATUS REGISTER 




BEO 


20$ 


;0K 




INC 


R2 


.•INDICATE ERROR 


20S: 








TST 


ATR8A 


.'TEST BUFFER ADDRESS 




BEO 


30$ 


:0K 




INC 


R2 


.•INDICATE ERROR 


30$: 










CMP 


ETRUCATRUC 


.-TEST THE WORD COUNT 




BEO 


40$ 


;0K 




INC 


R2 


; INDICATE ERROR 


40$: 










TST 


R2 


.•ANY ERRORS? 




BEO 

*D<ENUM 


50$ 


;N0 


ENUM = 




; INCREMENT ERROR NUMBER 




NOV 


fT.ESFT.ERRiyP 


;SPECIFr SOFT ERROR 




NOV 


#ENUN,ERRNBR 


.SPECIFY ERROR NUMBER 




NOV 


«NSR1FL,ERRNS6 


.SPECIFY ERROR NESSA6E 




NOV 


#ERR5,ERRBLK 


.SPECIFY ERROR HANDLER 




SEC 




;SET C = 1 


50$: 


RTS 


PC 


.RETURN 



'.S8TTL CHEKAU SUBROUTINE CHECKS REGISTERS AFTER READING AN ID BLOCK 



C2TRAC.P11 30-DEC-81 11:08 CHEKAU SUBROUTINE CHECKS REGISTERS AFTER READING AN ID BLOCK 



1668 


016262 


004737 


013354 




CHEKAU: 


JSR 


PC.RyyAiT 


1 lA t T 

UAI T 


1669 


016266 


004737 


013254 






JSR 


PC.CP^TRR 

#2204,ETRCR ; 


/■AAW Trj7A AP^ffCTfnC 

COPY Th79 REGISTERS 


1670 


016272 


012737 


002204 


002174 




MOV 


C WBC r TfT A 

cXPECTtD 


1671 


016300 


012737 


002021 


002176 




HOV 


*2021-ETRSR ; 
♦INPUT fETRBA ; 
USEB.ETRyC , 


P U AP ^ T P A 

EXPECTED 


1672 


016306 


012737 


006322 


002202 




MOV 


C WBC r TC ft 


1673 


016314 


013737 


002214 


002200 




HOV 


EXPECTED 


167A 


016322 


023737 


002174 


002164 




CMP 


ETRCR,ATRCR ; 


TCCr rAAAiiAft.lA BC^rCTCB 

TEST COWRAND RcGidTcK 


1675 


016330 


001401 








BEQ 


i A* 

10$ ; 


A V 

OK 


1676 


016332 


005202 








INC 


A 1 

Rc « 




1677 


016334 








4 AA 

lOS: 








1678 


016334 


023737 


A A *\ 4 7 / 

002176 


AA^ 4 A. A. 

002166 




#*MA 

CnP 


cTnSRfATnSR . 


TCCT TuC CTATlIC OC/*rCTCO 

TcSI IHc alATUs ncuidlcn 


1679 


016342 


001401 








A 

BEQ 


20$ 


OK 


1680 


016344 


0O52O2 








INC 


B^ 

R2 


ff UB ff r A TC CBBAB 


1681 


016346 








^A* . 

20$: 








1682 


016346 


023737 


A A*^ ^A^ 

002202 


AA^ 1 7^ 

002172 




#*MA 

CnP 


ETnSA.ATRBA 




1683 


016354 


001401 








A 

BEQ 


30$ 


. AV 

•OK 


1684 


016356 


005202 








INC 


B ^ 

R2 


JNDJCATc CnROn 


1685 


016360 








TA* 

30$: 






;TC9i THc WORD COUNI 


1686 


016360 


023737 


AA^ ^AA 

002200 


AA^i 7A 

002170 




CMP 


cTHUCATRWC 


1687 


016366 


001401 








ac A 

BEQ 


40* 


■ AV 

;0K 


1688 


016370 


005202 








INC 


R2 


rJNDJlATC CnROR 


1689 


016372 
















1690 


016372 

A4 ^ *^A 

016j76 
016402 


0050j7 


002206 






CLR 


EINPUT 


• n CAD LkWi\ cno cwDcrtcn uai iic 
^LLcAn mjHV rUN CArCliCI/ VALUE 


1691 


AAC A 77 

005037 


AA^ OAV 

002204 






CLR 


AINrU 1 


• n CAO LMion cno atthai uai iic 
;CLcAR UUnP PUR All UAL VALUt 


1692 


AAr 

005737 


AA^ 

006322 






TST 


r uBi *T 
INPUT 


• TCCT ffAIOllT ABCA 

;TC9T JNPUI ARcA 


i693 


A4 A t t^A 

016406 


AA4 M A^ 

C01404 








BC A 

BEQ 


C A< 
>0$ 


. AV 

;uK 


1694 


016410 


013737 


AA^ 

006322 


002204 




HAtJ 

HOV 


INPUT ,A1NPUT 


■ A^Tl lAI 

; ACTUAL 


1695 


016416 


AAf ^A^ 

005202 








ff ftl^ 

INC 


R2 


• r^nfffATC CDBAA 

; JNDJCATc cRRUR 


^696 


016420 








TAA . 

50$: 




Rc 




1697 


A4 A t 

016420 


AAC 7A^ 

005702 








TST 


;AnT cRRQRS? 


4 A AA 

1698 


A4 A t 

016422 


A A 4 / 4 f 

001415 








BC A 

BEQ 


60$ 


:N0 


low 










^ 1> 




1700 


016424 


0',2?17 


000003 


002154 




NOV 


#T.ESFT.ERRTyp 


.SPECIFY SOFT ERROR 


1701 


016432 


012737 


000020 


002156 




NOV 


#ENUN.ERRNBR 


.-SPECIFY ERROR NUMBER 


1702 


016440 


012737 


023654 


002160 




NOV 


«NRJBFL.ERRNSG 


.SPECIFY ERROR MESSAGE 


1703 


016446 


012737 


020244 


002162 




NOV 


fERR15,ERRBLK 


.•SPECIFY ERROR HANDLER 


1704 


016454 


000261 








SEC 




.SET C = 1 


1705 


016456 


000207 






60S: 


RTS 


PC 


.•RETURN 



1706 
1707 
1708 

1709 .S6TTL CHEKAX SUBROUTINE CHECKS REGISTERS AFTER URITE DATA WITH EVEN PARITY 

1710 



CZTRAC.Pn 30-DEC-81 11:08 CHEKAX SUBROUTINE CHECKS REGISTERS AFTER WRITE DATA WITH EVEN PARITY 



1711 
1712 


016460 


004737 


013354 




CHEKAX: 


JSR 


PCRWUAIT 


;UAiT 


1713 


016464 


004737 


013254 






JSR 


PC-CPYTRR 
*102602,ETRCR 


.COPY TR79 REGISTERS 


17U 


016470 


012737 


102602 


002174 




nov 


.•EXPECTED 


1715 


016476 


012737 


162001 


002176 




MOV 


«16$001,ETRSR 


.•EXPECTED 


1716 


016504 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR 


;TEST COMMAND REGISTER 


1717 


016512 


001401 








BEQ 


10$ 


;0K 


1718 


016514 


005202 








INC 


R2 


.INDICATE ERROR 


1719 


016516 








10S: 






.TEST THE STATUS REGISTER 


1720 


016516 


023737 


002176 


002166 




CMP 


ETRSR,ATRSR 


1721 


016524 


001401 








BEQ 


20$ 


;0K 


1722 


016526 


005202 








INC 


R2 


.•INDICATE ERROR 


1723 


016530 








20S: 








1724 


016530 


013701 


002214 






MOV 


USEB.RI 


;GET WORD COUNT 


1725 


016534 


005101 








COM 


R1 


.FIX IT 


1726 


016536 


005201 








INC 


R1 


.-INCREMENT IT 


1727 


016540 


006301 








ASL 


Rl 


.•DOUBLE IT 


1728 


016542 


062701 


002256 






ADD 


«BAD0UT,R1 


.•FINISH IT 


1729 


016546 


010137 


002202 






MOV 


RKETR6A 


.EXPECTED 


1730 


016552 


020137 


002172 






CMP 


Rl .ATRBA 
30i 


.'TEST BUFFER ADDRESS 


1731 


016556 


001401 








BEQ 


:0K 


1732 


016560 


005202 








INC 


R2 


.•INDICATE ERROR 


1733 


0^6562 








30$: 








1734 


016562 


005737 


002170 






TST 


ATRWC 


.'TEST THE WORD COUNT 


1735 


016566 


001401 








BEQ 


40$ 


:0K 


1736 


016570 


005202 








INC 


Al 


.•INDICATE ERROR 


1737 


016572 








40S: 




R2 




1738 


016572 


005702 








TST 


.•ANY ERRORS? 


1739 


016574 


001415 








BEQ 

*D<ENUM 


50$ 


:N0 


1740 




000021 






ENUn - 


♦ 1> 


.•INCREMENT ERROR NUMBER 


1741 


016576 


012737 


000003 


002154 




MOV 


#T.ESFT,ERRTYP 


.•SPECIFY SOFT ERROR 


1742 


016604 


012737 


000021 


002156 




NOV 


fENUM^ERRNBR 


.•SPECIFY ERROR NlfVER 


1743 


016612 


012737 


023674 


.002160 




NOV 


«nPARFL,ERRNSG 


.SPECIFY ERROR MESSAGE 


1744 


01 6620 


012737 


020102 


002162 




NOV 


#cRnj<CnRoLK 




1745 


016626 


000261 








SEC 




;SET C = 1 


1746 


016630 


004737 


013324 




50$: 


JSR 


PC«CPUR 


.•RESET TR79 


1747 


016634 


000207 








RTS 


PC 


.•RETURN 


1748 


















1749 
1750 
1751 


























'.SBTTL CHEKAY SUBROUTINE CHECKS REGISTERS AFTERREVERSE OVER EVEN PARITY DATA 


1752 



















SEO 53 

CZTRAC.P11 30-DEC-81 11:C8 CHEKAV SUBROUTINE CHECKS REGISTERS AFTERREVERSE OVER EVEN PARITY DATA 



1753 


















1754 


016636 


004737 


013354 




CHEKAr: 


JSR 


PC.RUUAIT 


;UAIT 


1755 


016642 


004737 


013254 






JSR 


PC.CPYTRR 
#103610. ETRCR 


;COPr TR79 REGISTERS 


1756 


016646 


012737 


103610 


002174 




MOV 


.'EXPECTED 


1757 


016654 


012737 


122001 


0021 76 




MOV 


*122001,ETRSR 


.•EXPECTED 


1758 


016662 


012737 


177700 


002200 




MOV 


*1 77700, ETRWC 


.•EXPECTED 


1759 


016670 


023737 


002174 


002164 




CWP 


ETRCR.ATRCR 


;TEST COMMAND REGISTER 


1760 


016676 


001401 








BEO 


10$ 


;0K 


1761 


016700 


005202 








INC 


R2 


.•INDICATE ERROR 


1762 


016702 








10$: 








1763 


016702 


023737 


002176 


002166 




CMP 


ETRSR.ATRSR 


.-TEST THE STATUS REGISTER 


1764 


016710 


001401 








BifO 


20$ 


;0»c 


1765 


016712 


005202 








INC 


R2 


.•INDICATE ERROR 


1766 


016714 








20$: 








1767 


016714 


005737 


002172 






TST 


ATRBA 


.•TEST BUFFER ADDRESS 


1768 


016720 


001401 








BEQ 


30$. 


;0K 


1769 


016722 


005202 








INC 


R2 


.•INDICATE ERROR 


1770 


016724 








30$: 








1771 


016724 


023737 


002200 


002170 




CMP 


ETRUCATRUC 


;TEST THE WORD COUNT 


1772 


016732 


001401 








BEQ 


40$ 




1773 


016734 


005202 








INC 


R2 


.•INDICATE ERROR 


1774 


016736 








40$: 








1775 


016736 


005702 








TST 


R2 


:Mi ERRORS? 


1776 


016740 


001415 








BEQ 


50$ 


;N0 


1777 




000022 






ENUM = 


•D<ENUM 


♦ 1> 


.•INCREMENT ERROR NUMBER 


1778 


016742 


012737 


000003 


002154 
002156 




nov 


#T.ESFT,ERRTYP 


.•SPECIFY SOFT ERROR 


1779 


016750 


012737 


000022 




MOV 


«ENUn,ERRN8R 


.SPECIFY ERROR NUMBER 


1780 


01 6756 


012737 


023712 


002160 




MOV 


«MEPSRFL«ERRHSG 


.SPECIFY ERROR MESSAGE 


1781 


016764 


012737 


020102 


002162 




MOV 


jrERR5,ERRBLK 


.-SPECIFY ERROR HANDLER 


1782 


016772 


000261 








SEC 




;SET C = 1 


1783 


016774 


004737 


013324 




50$: 


JSR 


PCCPWR 


.•RESET TR79 


1784 


017000 


000207 








RTS 


PC 


; RE TURN 


1785 


















1786 


















1787 
1788 










.S8TTL 

# 


CHEKAZ 


SUBROUTINE CHECK 


REGISTERS AFTER READING EVEN PARITY 



CZTRAC.Pn 



30-DEC-81 11:08 



CHFKAZ 5UBR0UTJ 



1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

18U 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 



017002 
017002 
017006 
017012 
017020 
017026 
017034 
017042 
017050 
017052 
017054 
017054 
017062 
017064 
017066 
017066 
017074 
017076 
017100 
017100 
017106 
017110 
017112 
017112 
017114 

017116 
017124 
017132 
017140 
017146 
017150 
017154 



004737 
004737 
012737 
012737 
012737 
012737 
023737 
001401 
005202 

023737 
OOUOl 
005202 

023737 
001401 
005202 

023737 
001401 
005202 

005 ro2 
001415 
000023 
012737 
012737 
012737 
012737 
000261 
004737 
000207 



013354 
013254 
102204 
163001 
006324 
177701 
002174 



CHEKAZ: 



000003 
000023 
023746 
020102 

013324 



0021/4 
002176 
002202 
002200 
002164 



002176 002166 
002202 002172 
002200 002170 



002154 
002156 
002160 
002162 



10S: 



20S: 



30S: 



40S: 



50S: 



JSR 
JSR 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 
INC 

CMP 
BEG 
INC 

CMP 
BEG 
INC 

CMP 
BEG 
INC 

TST 
BEG 

*D<ENUN 
NOV 

nov 
nov 

NOV 
SEC 
JSR 
RTS 



.S8TTL CHEKCX 



I 



C 5 

CHECK REGISTERS AFTER READING EVEN PARITY DATA 



5E0 54 



PCRUUAIT 


.-WAIT 


PC.CPYTRR 


;COPY TR79 REGISTERS 


4f1a2204 ETRCR 


•EXPCCTED 


4f1 63001 ETRSR 


'EXPECTED 


#INPyT*J,ETRBA 


.•EXPECTED 


#177701 ,ETRUC 


.•EXPECTED 


ETRCR ATRCR 


•TEST COMMAND REGISTER 


10S 


•OK 


R2 


.•INDICATE ERROR 


ETRSR.ATRSR 


•TEST THE STATUS REGISTER 


20S 


•OK 


R2 


•INDICATE ERROR 


ETRBA ATRBA 


•TEST BUFFER ADDRESS 


30S 


;0K 


R2 


: INDICATE ERROR 


ETRWC«ATRUC 


;TEST THE WORD COUNT 


40$ 


;0K 


R2 


.'INDICATE ERROR 


R2 


;ANY ERRORS? 


50$ 


;N0 


♦ 1> 


.'INCRENENT ERROR NUMBER 


#T.ESFT,ERRTYP 


;SPECIFY SOFT ERROR 


#ENUN.ERRNBR 


.SPECIFY ERROR NUPBER 


fWcrr L , CRhNSo 


;5rckJrT rNfwii McSSAbc 


«ERRS,ERRBLK 


.SPECIFY ERROR HANDLER 


.SET C = 1 


PC.CPWR 


;TR79 POUER CLEAR 


PC 


.•RETURN 


SUBROUTINE CHECKS 


TR79 REGISTERS AFTER WRITE 



C2TRAC.P11 



30-DEC-81 11:08 



D 5 

CHfcKCX SUBROUTINE CHECKS TR79 REGISTERS AFTFR WRITE 



SEC 55 



1827 

1828 

1829 

1830 

1831 

1832 

1833 

183A 

1835 

1836 

1837 

1838 

1839 

1840 

18A1 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 



017156 
017162 
017166 
017174 
017202 
017210 
017212 
017214 
017214 
017222 
017224 
017226 
017226 
017232 
017234 
017236 
017236 
017240 

017242 
017250 
017256 
017264 
017272 
017274 



004737 
004737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005737 
001401 
005202 

005702 
001415 
000024 
012737 
012737 
012737 
012737 
000261 
000207 



013354 
013254 
002602 
002001 
002174 



000003 
000024 
021755 
020120 



CHEKCX: 



002174 
002176 
002164 



002176 002166 



002170 



002154 
002156 
0021 60 
002162 



10$: 

20$: 

30$: 
ENUM = 

40$: 
.S8TTL 



JSR PC.RUUAIT 

JSR PC.CPYTRR 

MOV #2602,ETRCR 

MOV #2001.ETRSR 

CMP ETRCR,ATRCR 

BEQ 10$ 

INC R2 

CMP ETRSR,ATRSR 

BEQ 20$ 

INC R2 

TST ATRWC 

BEQ 30$ 

INC R2 

TST R2 

BEQ 40$ 
»0<ENUM ♦ 1> 

MOV #T.ESFT,ERRTyP 

MOV fENUM.ERRNBR 

MOV «MURTFL«ERRMSG 

NOV #ERR6,ERRBLK 
SEC 

RTS PC 



WAIT 

COPY :r79 registers 

EXPECTED 
EXPECTED 

TEST COMMAND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 
;TEST WORD COUNT 

;0K 

; INDICATE ERROR 



ANY ERRORS? 
NO 

JNCREnCNT ERROR NUMBER 
SPECIFY SOFT ERROR 
SPECIFY ERROR NUMBER 
SPECIFY ERROR MESSAGE 
SPECIFY ERROR HANDLER 
SET C - 1 
RETURN 



CHEKOX SUBROUTINE CHECKS TR79 REGISTERS AFTER READ 
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E 5 

CHEKDX SUBROUTINE CHECKS TR79 REGISTERS AFTER READ 



SEO 56 



18S8 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 



017276 
017302 
017306 
G17314 
017322 
017330 
017332 
017334 
017334 
017342 
017344 
017346 
017346 
017352 
017354 
017356 
017356 
017360 

017362 
017370 
017376 
017404 
017412 
017414 



004737 
004737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005737 
001401 
005202 

005702 
001415 
000025 
012737 
012737 
012737 
012737 
000261 
000207 



013354 
013254 
002204 
002001 
002174 



000003 
000025 
021765 
020120 



002174 
002176 
002164 



CHEKDX: JSR 
JSR 
MOV 
MOV 
CMP 
BtQ 
INC 



002176 002166 



002170 



002154 
002156 
002160 
002162 



10$: 



20$: 



30$: 



ENUn - 



40$: 



CMP 
BEQ 
INC 

TST 
BEQ 
INC 

TST 
BEQ 

*D<ENUM 
MOV 
MOV 
MOV 
MOV 
SEC 
RTS 



PCRUUAIT 

PC.CPYTRR 

#2204,ETRCR 

«2001.ETRSR 

ETRCR.ATRCR 

10$ 

R2 

ETRSR,ATRSR 

20$ 

R2 

ATRUC 

30$ 

R2 

R2 
40$ 
♦ 1> 

fT.ESFT.ERRTVP 
#ENUM,ERRN8R 
«flRDFL.ERRMSG 
#ERR6,ERRBLK 

PC 



WAIT 

COPr TR79 REGISTERS 

EXPECTED 

EXPECTED 

TEST COMMAND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
3K 

INDICATE ERROR 

TEST WORD COUNT 
OK 

INDICATE ERROR 

ANY ERRORS? 
NO 

INCREMENT ERROR NUMBER 
SPECIFY SOFT ERROR 
SPECIFY ERPOR MJPBiER 
SPECIFY ERROR MESSAGE 
SPECIFY ERROR HANDLER 
SET C = 1 
RETURN 



.S6TTL CHEKEX SUBROUTINE CHECKS TR79 REGISTERS AFTER SPACE REVERSE 
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CHEKEX SUBROUTINE CHECKS TR79 REGISTERS AFTER SPACE REVERSE 



SEQ 



1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

1915 

1916 

1917 

1918 

1919 

1920 



017416 
017422 
017426 
017434 
017442 
017450 
017456 
017460 
017462 
017462 
017470 
017472 
017474 
017474 
017502 
017504 
017506 
017506 
017510 

017512 
017520 
017526 
017534 
017542 
017544 



004737 
004737 
012737 
012737 
013737 
023737 
001401 
0052C2 

023737 
001401 
005202 

023737 
001401 
005202 

005702 
001415 
000026 
012737 
012737 
012737 
012737 
000261 
000207 



013354 
013254 
003610 
002001 
002214 
002174 



000003 
000026 
021774 
020120 



002174 
002176 
002200 
002164 



002176 002166 
002200 002170 



002154 
002156 
002160 
002162 



CHEKEX: JSR 
JSR 
MOV 
MOV 
MOV 
CMP 
BEQ 
INC 



10$: 



20$: 



30$: 



ENUM = 



40$: 



CMP 
BEQ 
INC 

CMP 
BEQ 
INC 

TST 
BEQ 

*D<ENU« 
MOV 
NOV 
MOV 
MOV 
SEC 
RTS 



PCRUUAIT 

PCCPYTRR 

#3610,ETRCR 

#2001,ETRSR 

USEB.ETRUC 

ETRCR.ATRCR 

10$ 

R2 

ETRSR.ATRSR 

20$ 

R2 

ETRUCATRUC 

30$ 

R2 

R2 
40$ 
♦ 1> 
/TT.ESFT.ERRTyP 
/TENUM.ERRNBR 
fnSRVFL.ERRNSG 
«ERR6,ERRBLK 

PC 



WAIT 

COPU TR79 REGISTERS 
EXPECTED 
EXPECTED 
EXPECTED 

TEST COMMAND REGISTER 
OK 

INDICATED 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 

TEST WORD COUNT 
OK 

INDICATE ERROR 

ANY ERRORS? 
NO 

INCREF1ENT ERROR NUMBER 
SPECIFY SOfT ERROR 
SPECIFY ERROR NUMBER 
SPECIFY ERROR MESSAGE 
SPECIFY ERROR HANDLER 
SET C = 1 
RETURN 



'.S8TTL CHEKFX GL08AL SUBROUTINE —TEST TR79 REGISTERS AFTER ERASE— 



CZTRAC.PIl 



1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
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CHEKFX 6L08AL SUBROUTINE —TEST TR79 REGISTERS AFTER ERASE- 



SEO 58 



017546 


004737 


013354 




CHEKFX 


JSR 


PC.RWWAIT 


WAIT 


017552 


004737 


013254 






JSR 


PC.CPYTRR ; 
#2^16.ETRCR ; 


COPY TR79 REGISTERS, CLEAR 


017556 


012737 


002216 


002174 




MOV 


SPECIFY EXPECTED RESULT 


0175o4 


012737 


002001 


002176 




MOV 


#2001.ETRSR ; 


SPECIFY EXPECTED RESULT 


017572 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR 


TEST COMMAND REGISTER 


017600 


001401 






BEQ 


10$ 


OK 


017602 


005202 








INC 


R2 ; 


INDICATE ERROR 


01 7604 








10$: 








01 7604 


023737 


002176 


002166 




CMP 


ETRSR,ATRSR ;TEST THE STATUS REGISTER 


017612 


001401 








BEQ 


20$ ;0K 


017614 


00S202 








INC 


R2 .-INDICATE ERROR 


017616 








20$: 








017616 


013701 


002214 






MOV 


USEB.RI ;GET WORD COUNT 


017622 


005101 








COM 


R1 ;FIX IT 


017624 


005201 








INC 


R1 




017626 


006301 








ASL 


R1 


DOUBLE IT 


017630 


062701 


002262 






ADD 


#0UTPUT,R1 


-COMPUTE BUS ADDRESS 


017634 


010137 


002202 






MOV 


RI.ETRBA 


SPiClfy EXPECTED RESULT 


017640 


020137 


002172 






CMP 


RI.ATRBA 
30i 


■TEST BUFFER ADDRESS 


017644 


001401 








BEQ 


;0K 


017646 


005202 








INC 


R2 


; INDICATE ERROR 


017650 








30$: 








017650 


005737 


002170 






TST 


ATRUC 


;TEST THE WORD COUNT 


017654 


001401 








BEQ 


40$ 




017656 


005202 








INC 


R2 


.-INDICATE ERROR 


017660 








40$: 








017660 


005702 








TST 


R2 


,-ANY ERRORS? 


017662 


001415 








BEQ 

•0<ENUH 


50$ 


;N0 




000027 






ENUM - 


+ 1> 


.-INCREMENT ERROR NUMBER 


017664 


012737 


000003 


002154 




nov 


fT.ESFT.ERRTYP 


.-SPECIFY SOFT ERROR 


017672 


012737 


000027 


002156 




nov 


fENUM.ERRNBR 


; SPECIFY ERROR NUMBER 


017700 


012737 


022014 


002160 




NOV 


4fMERFL.ERRMSG 


.-SPECIFY ERROR MESSAGE 


017706 


012737 


020102 


002162 




NOV 


fERRS JrRBLK 


.-SPECIFY ERROR HANDLER 


017714 


000261 








SEC 




.-SET C = 1 


017716 


000207 






50$: 


RTS 


PC 





'.SBTTC'WTTN GCl)BXC-S0BR00TT«E==TR79-TFJTERR0PT-RWIDCPR==" 



» 



C2TRAC.P11 



196A 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
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INTIN GLOBAL SUeROUTINE— TR79 INTERRUPT HANDLER— 



017720 
017720 
017720 
017726 
017732 
01773A 
01773A 
01 773A 



0A2777 
005037 
0002A0 



000002 



000100 
002240 



162314 



INTIN: 



LI 0002: 



SEO 59 



CLEAR 


TR79 


INTERRUPT 


ENABLE BIT 


* 


CLEAR 


TR79 


INTERRUPT 


INDICATOR (INTFLG) 


* 



B6NSRV INTIN 



BIC 
CLR 
NOP 
ENDSRV 

RTI 



«100«aTRCR 
INTfLG 



.•DISABLE INTERRUPT 
.•CLEAR THE FLAG 



,S8TTL ERRORS 



GLOBAL ERROR REPORTS 



CZTRAC.P11 
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ERRORS 



I 5 

GLOBAL ERROR REPORTS 



SEO 60 



1983 








198A 








1985 








1986 








1987 








1988 








1989 








1990 








1991 








1992 








1993 








1994 


017736 






1995 


017736 






1996 


017736 


004737 


020432 


1997 


017742 






1998 


017742 






1999 


017742 


1 04423 




2000 








2001 








2002 








2003 








2004 








2005 








2006 








2007 








2008 








2009 








2010 


017744 






2011 


017744 






2012 


017744 


004737 


013446 


2013 


017750 


000401 




2014 


017752 






2015 


01 7752 






2016 


01 7752 


104423 




2017 








2018 








2019 








2020 








2021 








2022 








2023 








2024 








2025 


01 7754 






2026 


01 7754 






2027 


017754 






2028 


017754 


004737 


014166 


2029 


017760 


103012 




<r030 


01 7762 






2031 


01 7762 


012746 


021140 


2032 


017766 


012746 


020473 




\J\fffC 


UlCfHO 


UWW/. 


2034 


017776 


010600 




2035 


020000 


104414 




2036 


020002 


062706 


000006 


2037 


020006 


004737 


013354 


2038 


020012 


004737 


013324 



///////////////////////////////////////////////////////////////////////////// 

/ THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES 
/ THAT ARE USED IN MORE THAN ONE TEST. 

///////////////////////////////////////////////////////////////////////////// 
.EVEN 



.SBTTL ERROR HANDLER — ERR1 — "NO NOTHING" HANDLER 

• m.m m ^ m m m ^ m mmmmmmmm mmm m^m^^tBmm^mmmmm mm m mm m mmmm mm m mmm mm m m m m m 

BGNnSG ERR1 

ERR1 * ' 

ER1:" JSR PCNULERR :USE COWON ROUTlNi TO TERMINATE ERROR MESSAGE 

ENDMS6 

L 10003 : 

TRAP CMSG 

".SBTTL ERROr'hANDLER —ERSr-* INSTALL WRITrENABLE RING 



IF WRITE ENABLE RING IS PRESENT THEN EXIT 
ASK OPERATOR TO INSTALL RING 
WHILE RING NOT PRESENT KEEP CHECKING 
IF RING IS PRESENT THEN EXIT 



ERR2 



BGNMSG 

ERR2:: 
ER2: JSR 
BR 

ENDHSG 
LI 0004: 

TRAP CSnSG 



PC.TESTC 
ER3 



.-MAKE SURE RING IS INSTALLED 
.-MAKE SURE ON LINE AND READY 



.SBTTL ERROR HANDLER — ERR3 — TR79 NOT ON LINE OR NOT READY 



ERR3: 

ER3: 

10S: 



BGNHSG ERRS 



20S: 



JSR 
6CC 

PRINTS 

nov 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

JSR 



PC.TESTNN 
20i 

#F«TTXT,#M2A1 

#H2A1,-(SP) 

#FMTTXT,-(SP) 

#2,-(SP) 

SP,RO 

CSPNT6 

#6,SP 

PC.RUUAIT 

PC.CPWR 



.-MAKE SURE ON LINE 

;0K. ON LINE WITH NO ERROR 

: ELSE SEND ERROR MESSAGE 



.■WAIT A BIT 
.•RESET TR79 



CZTRAC.Pn 

2039 
2040 
20A1 
2042 
20A3 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
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020016 


004737 


014114 


020022 


103015 




020024 






020024 


012746 


021040 


020030 


012746 


0204 /'3 


020034 


012746 


000002 


020040 


010600 
104^14 




020042 




020044 


062706 


000006 


020050 


004737 


013442 


02C054 


000737 




020056 






020056 


004737 


020432 


020062 






020062 






020062 


104423 
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ERROR HANDLER — ERR3 — TR79 NOT ON LINE OR NOT READr 



SEQ 61 



30S: 

L 10005 ; 



JSR 
BCC 

PRINIB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

BR 

JSR 

ENDMSG 
TRAP 



PC.TSTRDY 
30i 

/lfFMTTXT.#EH2A 

#EM2A.-(SP) 

#FMTTXT,-(SP) 

*2.-(SP) 

SP.RO 

CSPNT6 

#6.SP 

PC.CHKBRK 

lOi 

PCNULERR 
CSnSG 



;TEST READY 

TEST READY BITS 
;READY. RETURN 
;PRINT ERROR MESSAGE 



; CHECK FOR OPERATOR INTERRUPT 
.-REPEAT TEST ON LINE AND READY 

.•TERMINATE ERROR MESSAGE 



.S6TTL ERROR HANDLER — ERR4— PRINT COMMAND AND STATUS RESULTS 



CZTRAC.Pll 
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2061 








2062 








206? 


020064 






2064 


020064 






2065 


020064 


012702 


000004 


2066 


020070 


004737 


020324 


2067 


020074 


004737 


020432 


2068 


020100 






2069 


020100 






2070 
2071 


020100 


104423 


* 








2072 








2073 








2074 








2075 








2076 








2077 








2078 


020102 






2079 


020102 






2080 


020102 


012702 


000010 


2081 


020106 


004737 


020324 


2082 


020112 


004737 


020432 


2083 


020116 






2084 


020116 






2085 


020116 


104423 




2086 








2087 








2088 








2089 








2090 








2091 








2092 








2093 


020120 






2094 


020120 






2095 


020120 


012702 


AAA AA^ 

000006 


2096 


020124 


004737 


020324 


2097 


020130 


004737 


A <^A / 9^ 

020432 


2098 


020134 






2099 


020134 






2100 


020134 


104423 




2i0i 








2102 








2103 








2104 








2105 








2106 









K 5 

ERROR HANDLER — ERR4— PRINT COMMAND AND STATUS RESULTS 
.•PRINT TkCR AND TRSR RESULTS 
BGNMSG ERR4 



SEO 62 



ERR4: 



Li 0006: 



ERRS:: 



LI 0007: 



MOV *4.R2 

JSR PC.PRTREG 

JSR PCNULERR 
ENDMSG 

TRAP C$MSG 



SPECIFY REGISTER COUNT - 2 FOR PRINT 
PRINT RESULTS 
TERMINATE ERROR MESSAGE 



.SBTTL ERROR HANDLER —ERRS— PRINT TR79 REGISTER RESULTS 
; PRINT TRCR,TRSR,TRWC,TRBA RESULTS 



BGNMSG ERRS 

MOV #10,R2 

JSR PC.PRTREG 

JSR PC.NULERR 
ENDMSG 

TRAP CSMSG 



SPECIFY REGISTER COUNT = 4 FOR PRINT 
PRINT RESULTS 
TERMINATE ERROR MESSAGE 



.SBTTL ERROR HANDLER — ERR6— PRINT TR79 REGISTER RESULTS 



ERR6:: 



L10010: 



BGNMSG ERR6 



.•PRINT TRCR,TRSR.TRWC, RESULTS 



MOV #6.R2 

JSR PCPRTREG 

JSR PCNULERR 
ENDMSG 

TRAP CSMS6 



SPECIFY REGISTER COUNT = 3 FOR PRINT 
PRINT RESULTS 
TERMINATE ERROR MESSAGE 



.SBTTL ERROR HANDLER — FRR11— FAILED TO LOAD VALUE INTO BUS ADDRESS REGISTER 



020 1 36 






020150 






020136 


00*>f3r 


UcUj«tO 






000006 


020U6 


004737 


020370 


020152 


004737 


020432 


020156 






020156 






020156 


104423 
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2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 



020160 
020160 
020160 
020164 
020170 
020174 
020200 
020200 
020200 



004737 020346 

012701 000004 

004737 020370 

004737 020432 



104423 
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ERROR HANDLER — ERR11— FAILED TO LOAD VALUE INTO BUS ADDRESS REGISTER 
BGNnSG ERR 11 



SEO 



ERR11: 



L10011 



ERR12: 



.10012; 



JSR 
MOV 

JSR 
JSR 

ENDMS6 



JSR 

nov 

JSR 

JSR 

ENDMSG 



PC.XHDR 
*6.R1 

PCXPRT 
PCNULERR 



PRINT EXPECTED RESULT HEADER 
SPECIFY BUS ADDRESSS REGISTER 
PRINT EXPECTED RESULT 

USE COmON ROUTINE TO TERMINATE ERROR MESSAGE 



TRAP CSMS6 



.SBTTL ERROR HANDLER — ERR12— FAILED TO LOAD VALUE INTO WORD COUNT REGISTER 



B6NMS6 ERR12 



PCXHDR 
#4,R1 
PC.XPRT 
PCNULERR 



PRINT EXPECTED RESULT HEADER 
SPECIFY TRWC REGISTER 
PRINT EXPECTED RESULT 

USE COMMON ROUTINE TO TERMINATE ERROR MESSAGE 



n\P CSMS6 



. SBTTL ERROR HANDLER —fRRU., DATA ERROR ON READ 



C2TRAC.P11 



30-0EC-81 11:08 



21 34 


020202 






2135 


020202 






2136 


020202 






213"' 


020202 


013746 


002206 


2138 


020206 


013746 


002204 


2139 


020212 


013746 


002210 


2U0 


020216 


012746 


020500 


2U1 


020222 


012746 


000004 


2U2 


020226 


010600 




2143 


020230 


104414 




2144 


020232 


062706 


000012 


2145 


020236 


004737 


020432 


2146 


020242 






2147 


020242 






2148 


020242 


104423 




2149 








2150 








2151 








2152 
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ERROR HANDLER — ERR14.. DATA ERROR ON READ 



SEQ 



ERR14: 



L10013: 



BGNMSG ERR 14 

PRINTS #FMr31 AINPUT.AINPUT.EINPUT 

MOV £ INPUT. -(SP) 

MOV AINPUT.-(SP) 

MOV L INPUT. -(SP) 

MOV #FMT31.-(SP) 

MOV #4,-(SP) 

MOV SP.fiO 

TRAP CIPNTB 

ADD «12,SP 

JSR PCNULERR 
ENOMSG 

TRAP CSnSG 



.•PRINT INPUT AREA RESULT 



.'TERMINATE ERROR MESSAGE 



.SST^L ERROR HANDLER — ERR15— ERROR ON READ IDB 



CZTRAC.Pn 
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0<:U£*>H 








A9A9/ / 








0£U£*t*t 


A1 97A9 


AAom 0 


£1 30 


AOA9C A 


AA/ 7X7 


n9A73/. 




n9n95/ 

U<:U£3H 


A1 9777 


AOA799 


£1 30 


n9n9A9 

U£U£0£ 


f\\ 77/.A 

U 1 ••0 






n9n9A9 


rt0990A 


■51 Art 




A1 77/. A 
I, 1 Jf HO 


0099rtA 


c 1 0 1 


n9n979 
UcUe '£ 


01 77/.A 
Ul Jf *»0 


00991 0 
UU££ 1 U 


c\Oc 


A9n97A 


ni 97/.A 
Ol£f hO 


090500 
UCU9UU 


£ lOJ 


090703 

UcUjU£ 


01 97/,A 
U 1 £f mO 


00000^ 


C IO«l 


09070A 

U£U jUO 


01 OAOO 




AC 

c IOj 


09071 0 


1 r\LL^L 

1 Uh*i I *t 




£ 100 


n9071 9 


OA970A 


00001 3 
UUUU 1 £ 


91 

C lOr 


09071 A 


00A7X7 


030^^3 
UcUH j£ 


c 1 00 


090739 






71 AQ 


090793 
U£Uj££ 






91 7n 


n9n799 


10ZA97 
1 Uhhc.3 




3171 








•51 75 








91 71 








91 7A 








91 7C 


09079^ 






91 7A 
£ 1 r 0 


09079^ 


00^7T7 


UcwjHO 


31 77 


090770 


00S001 




91 711 


030H3 


00A777 


030^70 

U£w.3r V 


31 70 


U£w j30 


00S731 
\l\Jjf c 1 




3iiir) 

c 1 OU 


npnTAO 

U£w.9*tU 


030301 




31fi1 


0907^9 
U£UJt£ 


101 \7\ 




31fl3 


030'^^ 


000307 




91B1 








31 BZ 








31 BC 








31 BA 








31 B7 








3 IBS 

£ loo 


0907AA 






31 BQ 


090TAA 


0137AA 

U 1 £ ' HO 


U£v300 


3ion 

£ 1 


030T<?3 


\J\CI HO 


000001 

Uwvvw 1 


3101 

£ 1 ▼ 1 


030^SA 

U£wJ^O 


010A00 

w 1 UOwv 




3103 

£ 1 T£ 




lO^^I^ 
1 wHH 1 H 




31 01 
£ 1 TJ 


030 


wO£ r UO 


OOOOOA 

vvvvvH 


31QA 

£ 1 T*» 


030'^M 

U£U 300 


000307 




310^ 

£ 1 T3 








31QA 
£ ItO 








31 07 








31 OB 

£ 1 TO 








31 00 

£ ITT 








330h 








3301 

££U 1 








3303 


030770 






2203 


020370 






2204 


020370 


016146 


002164 


2205 


020374 


016146 


002174 


2206 


020400 


016146 


002242 


2207 


020404 


016146 


020454 


2208 


020410 


012746 


020653 
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ERROR HANDLER — ERR15— ERROR ON READ 108 
BGNMSG ERR15 



SEC 65 



ERR15: 



L10014: 



PRTREC: 



10$: 



XHDR: 



XPRT: 



nov 

JSR 

MOV 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENDMSS 
TRAP 



SPECIFY COUNT TO PRINT 4 REGISTERS 
PRINT REGISTERS 

SPECIFY INPUT LOCATION FOR PRINT 

.•PRINT ;NPUT AREA RESULT 



«10,R2 
PCPRTREG 
#INPyT,L INPUT 

#F«T31 ,LINPUT,A1NPUT,EINPUT 
EINPUT.-(SP) 
AINPUT,-(SP) 
LINPyT,-(SP) 
#F«T31,-(SP) 
#4,-(SP) 
SP.RO 
CSPNTB 
*12,SP 

PCNULERR .-COMMON ERROR MESSAGE TERMINATOR 



C$KS6 

SBTTL PRTREG SUBROUTINE TO PRINT SEVERAL REGISTER RESULTS 



JSR 
CLR 
JSR 
TST 
CMP 
BHI 
RTS 



PC. XHDR 
R1 

PC. XPRT 

(RD* 

R2.R1 

10$ 

PC 



;PRINT SEVERAL TR79 REGISTER RESULTS 
RESULT HEADER 
CLEAR PRINT INDEX 
;PRINT RESULT 
INCREMENT PRINT INDEX 
IF MORE REGISTERS TO PRINT 
THEN PRINT NEXT REGISTER 



.S8TTL XHDR SUBROUTINE TO PRINT RESULTS HEADER 



PRINTS 

MOV 

NOV 

NOV 

TRAP 

ADD 

RTS 



#F«T51 

#FMT51.-(SP) 

#1.-(SP) 

SP.RO 

C$PNTB 

#4,SP 

PC 



;PRINT RESULTS HEADER 



.SBTTL XPRT SUBROUTINE TO PRINT ONE REGISTER RESULT 



PRINTS #FMT52.TPT52(R1).TRCR(R1).ETRCR(R1).ATRCR<R1) 

NOV ATRCR(R1).-(SP) 

NOV ETRCR(R1).-(SP) 

NOV TRCR(R1),-(SP) 

NOV TPT52(R1),-(SP) 

MOV <fFMT52.-(SP) 
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XPRT 



2209 
2210 

:2ii 

2212 
2213 
22U 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2221 
222t^ 
2225 
2226 
2227 



0204U 
020420 
0204?2 
020424 
020430 



020432 
020432 
020436 
020442 
020444 
020446 
020452 



012746 
010600 
104414 
062706 
000207 



012746 
012746 
010600 
104414 
062706 
000207 



000005 
000014 



020464 
000001 



000004 



B 6 

SUBROUTINE TO PRINT ONE REGISTER RESULT 



SEO 66 



nov 

MOV 
TRAP 
ADD 
RTS 



#5.-(SP) 
SP.RO 
CSPNTB 
#14, SP 
PC 



.S8TTL 



SUBROUTINE TO PERFORM 'IPRINTB fENDEMB" 



NULlRR: PRINTS #ENDEM8 

nOV «ENDEnB,-(SP) 

MOV #1,-(SP) 

MOV SP.RO 

TRAP CSPNTB 

ADD #4.SP 

RTS PC 



.•TERMINATE ERROR MESSAGE 



.S8TTL FORMAT SPEC'S FOR ERROR HANDLERS — 'TMT " 
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FORMAT SPEC'S FOR ERROR HANDLERS — "FHT ' 



2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 



020454 
020462 



020464 
020470 
020473 
020500 
020566 
020653 
020702 
020717 
020734 
020751 



020702 020717 
020751 



047045 
047045 

045 
040445 
047045 

045 
047503 

123 
047527 

102 



000062 
000 
022516 
044440 
051445 
022516 
046515 
040524 
042122 
051525 



000124 
050116 
022464 
032123 
047101 
052524 
041440 
040440 



020734 TPT52: .WORD 



.NLIST 
ENDEMB 
NEULIN 
FMTTXT 
FMT31 
FMT51 
FMT52 
T52A 
T52B 
T52C 
T52D 



BEX 

.ASCJZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 

.ASCIZ 

.ASCIZ 

•ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



TEXT POINTERS USED IN FORMAT SPECS 

T52A,T52B.T52C,T52D .-POINTERS TO REGISTER NAME TEXT 



FORMAT SPEC'S USED BY ERROR HANDLERS 



/XN2/ 
/XN/ 
/XNtT/ 

/XA INPUT AT LOCATION X06XA IS X06XA EXPECTED X06/ 

/XNXS4XAREGISTERXS4XAL0CATI0NXS4XAEXPECTEDXS4XAACTUAL/ 

/XNXS4XTX06XS6X06XS6X06/ 

/COMMAND / 

/STATUS / 

/WORD COUNT / 

/BUS ADDRESS / 



.SBTTL ERROR MESSAGES 
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ERROR MESSAGES 



020766 
021002 
0210A0 
021057 
021 UO 
021156 
021174 
021235 
021277 
021337 
02U02 
02UA3 
021500 
021551 
021630 
021707 
021741 
021745 
021755 
021765 
021774 
022014 
022024 
022103 
022161 
022204 
022227 
022245 
022306 
022337 
022362 
022413 
022437 
022504 
022545 
022600 
022621 
022643 
022665 
022726 
022751 
022772 
023012 
023046 
023115 
023166 
023203 
023221 
023262 
023301 
023333 
023374 



047516 
051127 
051124 
120 
047117 
051040 
042440 
040 
040 
040 
054105 
040 
050040 
040 
040506 
040 
040 
122 
127 
122 
050123 
051105 
051040 
040 
111 
047111 
120 
127 
042522 
111 
051127 
127 
127 
051127 
125 
043117 
122 
122 
123 
042522 
127 
042522 
051127 
054105 
105 
042522 
105 
120 
040515 
127 
123 
042522 



020124 
052111 
034467 
040514 
046040 
053505 
052130 
054105 
054 i05 
054105 
042524 
053520 
051127 
040506 
046111 
051124 
037440 
051505 
044522 
040505 
041501 
051501 
046505 
047111 
052116 
042524 
053517 
044522 
044527 
046114 
052111 
044522 
044522 
052111 
044516 
020106 
053505 
040505 
040520 
042101 
044522 
042101 
052111 
042524 
020101 
042101 
042116 
051525 
052516 
044522 
040520 
042101 



047117 
020105 
047040 
042503 
047111 
047111 
047105 
042524 
042524 
042524 
051516 
041522 
046103 
046111 
042105 
034467 
000 
052105 
042524 
020104 
020105 
020105 
053117 
042523 
051105 
051122 
051105 
042524 
042116 
043505 
020105 
042524 
042524 
020105 
020124 
044514 
047111 
020104 
042503 
042440 
042524 
052040 
020105 
051516 
044502 
041440 
047440 
020110 
046101 
042524 
042503 
050040 



EM2: 
En4A 
EM2A 
n2A: 
n2Al 
MRU: 
ni6SFL 
H16CFL 
m7SFL 
m7CFL 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



nXCFL: .ASCI 
NPUCL: .ASCI 



MPyST; 

EH7: 

EM: 



.ASCI 
.ASCI 
.ASCI 



MINTFL: .ASCI 

FfQM * aASCJ 
NRSrFL:.ASCI2 

nWRTFL: .ASCI 

HRDFL: .ASCI 

nSRVFL: .ASCI 

WRFL; .ASCI 



MRMVRG 
F«TR6I 
niENFL 
niDSFL 
HPCFL: 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 



MU1PLFL:.ASC1 
nRULPFL:.ASCI 
WLFFL; .ASCJ 
nWLPFL: .AStI 
WyEFFL; .ASCI 
HyCLPFL.-.ASCI 
nUILPFL:.ASCI 
WUNOFLN.-.ASCI 
«OFLEFL:.ASCI 
NRUOFL; .ASCI 
mOERR: .ASCI 
HSREFFL.-.ASCI 



HREFFL 
nWTOFL 

mroFL 

fMNXFL 
HNXBFL 
HNX^FL 
HRCFL; 
HETFL 



.ASCI 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 



KRSTU: .ASCI 
FfWSFL: .ASCI 
HUPETFL.-.ASCI 
HSRETFLr.ASCI 
HRPETFL.-.ASCI 



D 6 



SE3 68 



ERROR MESSAGES USED BY ERROR CALL'S 



/NOT ON LINE/ 

/WRITE ENABLE RING NOT PRESENT/ 
/TR79 NOT READY/ 

/PLACE UNIT ON LINE AFTER TAPE MOTION HAS STOPPED/ 
/ON LINE ERROR/ 

/ REWIND ERROR/ :NOT FROM TEST REWIND AT LOAD POINT 

/ EXTENSION BIT 16 FAILED TO SET/ 

/ EXTENSION BIT 16 FAILED TO CLEAR/ 

/ EXTENSION BIT 17 FAILED TO SET/ 

/ EXTENSION BIT 17 FAILED TO CLEAR / 

/EXTENSION SIT(S) FAILED TO CLEAR/ 

/ PURCLR BIT CLEARED TOO SOON/ 

/ PWRCLR BIT NOT CLEAR AFTER 900 MIILISEC/ 

/ FAILED TO LOAD VALUE INTO WORD COUNT REGISTER/ 

/FAILED TO LOAD VALUE INTO BUS ADDRESS REGISTER/ 

/ TR79 FAILED TO INTERRUPT/ 

/ ?/ 

/RESET / 

/WRITE / 

/READ / 

/SPACE REVERSE / 
/ERASE / 

/ REMOVE WRITE ENABLE RING LOAD I PLACE ONLINE / 
/ INSERT WRITE ENABLE RING LOAD t PLACE ONLINE/ 
/INTERRUPT ENABLE / 
/INTERRUPT DISABLE / 
/POWER CLEAR / 

/WRITE ID BLOCK PAST LOAI POINT / 

/REWIND FROM LOAD POINT / 

/ILLEGAL FUNCTION / 

/WRITE FROM LOAD POINT / 

/WRITE END OF FILE / 

/WRITE END OF FILE FROM LOAD POINT / 

/WRITE ID BLOCK FROM LOAD POINT / 

/UNIT DID NOT 60 OFF LINE / 

/OFF LINE ERROR / 

/REWIND OFF LINE / 

/READ DATA ERROR / 

/SPACE REVERSE OVER END OF FILE / 

/READ END OF FILE / 

/WRITE TIME OUT / 

/READ TIME OUT / 

/WRITE NON-EXISTENT MEMORY / 

/EXTENSION BIT 13 NON EXISTENT MEMORY / 

/EA BITS 12 AND 13- NON EXISTENT MEMORY / 

/READ COUNT / 

/END OF TAPE / 

/PUSH RESET BUTTON ON TAPE UNIT / 
/MANUAL RESET / 
/WRITE PAST END OF TAPE / 
/SPACE REVERSE PAST END OF TAPE / 
/READ PAST END OF TAPE / 
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2238 
2239 
2240 



023A24 
023A7A 
0235A3 
023562 
023620 
023654 
023674 
023712 
023746 
023771 



051127 
042522 

127 
050123 
050123 
042522 
053105 
053105 
042522 

12? 



024026 



052111 
0^2101 
044522 
041501 
041501 
042101 
047105 
047105 
042101 
053505 



020105 
042440 
042524 
020105 
020105 
C<,4440 
050C40 
050040 
042440 
047111 



ERROR MESSAGES 



MUEFETF: 

rtREFETF: 

nUENFL: 

nSRLPFL: 

MSRJFL: 

NRIBFL: 

NPARFL: 

HEPSRFL! 

HREPfL: 

HEOT: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



E 6 



/WRITE END OF FILE PAST END OF 

/READ END OF FILE PAST END OF 

/URITE ENABLE / 

/SPACE REVERSE AT LOAD POINT / 

/SPACE REVERSE AT ID BLOCK / 

/READ ID BLOCK / 

/EVEN PARITY / 

/EVEN PARITY SPACE REVERSE / 

/READ EVEN PARITY / 

/REWINDING... GOING OFF LINE / 



SEO 6^ 



TAPE 
TAPE 



.LIST 
.EVEN 



BEX 



.SBTTL LOAD DEVICE PROTECTION TABLE 
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LOAD DEVICE PROTECTION TABLE 



22A1 
22<.2 
22^3 
224^ 
2245 
2246 

2247 024026 

2248 024026 

2249 024026 M7777 

2250 0240i0 1 77777 

2251 024032 ^77777 

2252 024034 
2253 

2254 



///////////////////////////////////////////////////////////////////////////,/ 
/ THIS TABLE IDENTIFIES THE LOAD DEVICE TO THE SUPERVISOR. SO THAT IT CAN BE 
/ PROTECTED FROM TESTING. IF DESIRED. 

///////////////////////////////////////////////////////////////////////////// 



LSPROT: 



BGNPROT 

'.WORD 
.WORD 
.WORD 
ENDPROT 



-1 .-DON'T CHK CSR ADRS 

-1 ; DON'T CHK VECTOR AORS 

-1 .-DON'T CHK PRIOITy LEVEL 



.SBTTL INITIALIZE SECTION 



6 6 



CZTRAC.P11 30-DEC-81 11:08 



2255 
2256 
2257 
2258 
2259 
2260 

2261 02403^ 

2262 02A03A 

2263 02403* 010637 
2264 

2265 024040 005037 

2266 024044 

2267 024044 013700 

2268 024050 104442 

2269 024052 010001 

2270 024054 012102 

2271 024056 010237 

2272 02t*062 005722 

2273 024064 010237 

2274 024070 005722 

2275 024072 010237 

2276 024076 005722 

2277 024100 010237 

2278 024104 012137 

2279 024110 012137 

2280 024114 

2281 024114 013700 

2282 024120 104441 

2283 024122 042777 

2284 024130 005037 

2285 024134 

2286 024134 013746 

2287 024140 012746 

2288 024144 013746 

2289 024150 012746 

2290 024154 104437 

2291 024156 062706 

2292 024162 005737 

2293 024166 001003 

2294 024170 012737 

2295 024176 

2296 024176 

2297 024176 104411 
2298 

2299 
2300 



INITIALIZE SECTION 



SEQ 71 



///////////////////////////////////////////////////////////////////// 
/ THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
/ AT THE BEGINNING OF THE TEST SEQUENCE ON THE NEXT UNIT. 
///////////////////////////////////////////////////////////////////// 



002236 

002234 
002234 

002242 

002244 

002246 

002250 
002252 
002254 

000340 

000100 156112 
002240 

002254 
017720 
002252 
000003 

000010 
002152 

}77777 002152 



LSINIT: 



ENDJN: 
L10016: 



BGNINIT 
HOV 
CLR 

GPHARO 

MOV 

TRAP 

MOV 

MOV 

MOV 

TST 

MOV 

TST 

MOV 

TST 

NOV 

NOV 

NOV 

SETPRI 

NOV 

TRAP 

BIC 

CLR 

SETVEC 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

TST 

BNE 

NOV 

ENDJNJT 



SP,PSTACK 



;GET 



L06DEV 
L060EV.R1 
LOGDEV.RO 
CSGPHRD 
RO.RI 
(R1)*.R2 
R2.TRCR 
(R2)* 
R2-TRSR 
(R2)* 
R2-TRWC 
(R2)* 
R2,TRBA 
(R1)*.TRVCT 
(R1)*,TRPRT 
PRI07 
PRI07,R0 
CSSPRI 
«BJT6,aTRCR 
INTFL6 

TRVCT,#INTIN,TRPRT 

TRPRT.-(SP) 

#INTIN.-(SP) 

TRVCTi-(SP) 

#3,-(SP) 

CSSVEC 

«10,SP 

RPTCNT 

ENOJN 

#-1 ,RPTCWT 



:SAVE BASE LEVEL STACK POINTER 
TR79 ADDRESS, VECTOR, PRIORI TV LEVEL 
.SET LOGICAL DEVICE NUMBER = 0 
;GET P-TABLE POINTER 



GET THE TR79 CSR ADDRESS 

copy CONNAND REGISTER ADDRESS 

GET TR79 STATUS REGISTER ADDRESS 

COPr STATUS REGISTER ADDRESS 

GET TR79 WORD COUNT REGISTER ADDRESS 

COPY yORD COUNT REGISTER ADDRESS 

GET TR79 BUS ADDRESS REGISTER ADDRESS 

COPY BUS ADDRESS REGISTER ADDRESS 

SAVE INTERRUPT VECTOR ADDRESS 

SAVE TR79 DEVICE PRIORITY 

SET PRIORITY TO INHIBIT TR79 INTERRUPTS 



; CLEAR TR79 INERRUPT ENABLE BIT 
.•CLEAR TR79 INTERRUPT FLAG 
.SET UP TR79 VECTOR 



TRAP CSINIT 



IS TEST4 REPEAT COUNT = 0 
NO. EXIT INIT 
YES. SET REPEAT COUNT = -1 
END OF "INIT" CODE 



.SBTTL AUTO DROP UNIT SECTION 



H 6 
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2301 
2302 
2303 
2304 
2305 
2306 

2307 024200 

2308 02A200 

2309 024200 

2310 024200 

2311 024200 104461 
2312 

2313 
2314 
2315 
2316 
2317 
2318 
2319 

2320 024202 

2321 024202 

2322 024202 

2323 024202 

2324 024202 104412 
2325 

2326 
2327 
2328 
2329 
2330 
2331 



AUTO DROP UNIT SECTION 



S£Q 72 



///////////////////////////////////////////////////////////////////////////// 
/ THE AUTO DROP CODING DETERMINES WHElHER OR NOT THE DEVICE WHOSE P-TABLE 
/ WAS JUST OBTAINED IS READY FOR TESTING, ND IT IS DROPPED If NOT READY. 
///////////////////////////////////////////////////////////////////////////// 



BGNAUTO 
ENDAUTO 

TRAP CSAUTO 
.SBTTL CLEANUP CODING SECTION 



LSAUTO 
L10017 



///////////////////////////////////////////////////////////////////// 
/ THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
/ AT THE END OF THE TEST SEQUENCE ON A PARTICULAR UNIT. 
///////////////////////////////////////////////////////////////////// 

B6NCLN 
LSClEAN:: 

ENDCLN 

LI 0020: 

TRAP CSCLEAN 



.SBTTL TEST1 NULL TEST 



I 6 
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2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 

2341 024204 

2342 024204 

2343 024204 

2344 024204 

2345 024204 104401 
2346 

2347 
2348 
2349 
2350 
2351 
2352 



te:ti null test 



SECi 73 



//////////////////////////////////////////////////////////////////////// 

TEST1 THIS IS A NULL TEST INCLUDED TO PRESERVE THE TEST NUf«EftINC 

USED IN C2TRAB. MANUAL INTERVENTION TESTS ARE INCLUDED IN TEST6 
/////////////////////////////////////////////////////////////////////// 



T1 : : 
L10021: 



BCNTST 
ENDTST 

TRAP CSETST 



.SBTTL rEST2 CHECK CONTROL LOGIC WITH HINlMUn TAPE HOTION 
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2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

?382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 
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TEST2 CHECK CONTROL LOGIC WITH niNlMUM TAPE MOTION 



//////////////////////////////////////////////////////////////////// 
TEST2 CHECKS THE INTERFACE LOGIC WITH MINIMUM TAPE MOTION 



SEQ 4 



TEST2 INCLUDES: 

REWIND FROM LOAD POINT 
INSURE WRITE RING 
UNIBUS EXTENSION BIT TEST 
INTERRUPT BIT SET TEST 
INTERRUPT BIT CLEAR TEST 
ILLEGAL COMMAND TEST 
WRITE FROM LOAD POINT 
WRITE EOF FROM LOAD POINT 
TEST TR79 POWER CLEAR 
SPACE REVERSE AT LOAD POINT 
NXM TEST 

BUS ADDRESS BIT TEST 
WORD COUNT BIT TEST 



TEST NAME IN CZTRAB 

TESTI 
TESTC 
TESTD 
TESTE 
TESTF 
TESTJ 
TESTK 
TESTM 
TEST6 
TESTAT 
TESTAB 
TESTAU 
TESTBA 



024206 










B6NTST 




024206 








T2:: 






02-«206 








TEST2: 






024206 


042777 


000100 


156026 




BIC 


iraiT6,8TRCR 


024214 








T2I: 




024214 


004737 


013324 






JSR 


PC.CPWR 


024220 


004737 


014066 






JSR 


PC-TESTN 


024224 


103001 








BCC 


lOi 


024226 










ERROR 




024226 


104460 








TRAP 


CSERROR 


024230 








10S: 






024230 


032777 


000040 


156006 




BIT 


#LDPTS,aTRSR 


024236 


001010 








BNE 


30$ 


024240 


004737 


013324 






JSR 


PC.CPWR 


024244 


004737 


012416 






JSR 


PC.RWIND 


024250 


004737 


013534 






JSR 


PC-CHEKI 


024254 


103001 








BCC 


30i 


024256 










ERROR 




024256 
024260 


104460 








TRAP 


CSERROR 








30S: 






024260 


004737 


014066 






JSR 


PC.TESTN 


024264 


103001 








BCC 


35i 


024266 










ERROR 




024266 


104460 








TRAP 


CSERROR 


024270 








35S: 




024270 


004737 


013324 






JSR 


PCCPWR 


024274 


004737 


012416 






JSR 


PCRWIND 


024300 


004737 


013254 






JSR 


PC-CPYTRR 


024304 


012737 


003220 


002174 




MOV 


#3220,ETRCR 


024312 


012737 


002040 


002176 




MOV 


#2040.ETRSR 


024320 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR 


024326 


001401 








BEO 


40S 



///////////////////////////////////////////////////////////////////// 



;NEGATE INTERRUPT ENABLE 

; CLEAR TR79 INTERRUPT ENABLE BIT 
:TEST REWIND AT LOAD POINT 

.•RESET TR79 

.MAKE SURE TRANSPORT ON LINE AND READY 
:N0 ERROR 
.REPORT ERROR 

;0N LINE AND READY 

:IF AT LOAD POINT 

: THEN SKIP PRELIMINARY REWIND 

.RESET TR79 

.-REWIND 

.'CHECK REGISTERS 
;N0 ERROFiS. 
.-REPORT ERROR 

:AT LOAD POINT 

.MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.•REPORT ERROR 

.REWIND AT LOAD POINT 
r RE SET TR79 
;REWIND AT LOAD POINT 
;COPY TR79 REGISTERS 
lEXPECTED 
; EXPECTED 

CHECK COmAND REGISTER 

;0K 
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TEST2 CHECK CONTROL LOGIC WITH niNIHUM TAPE MOTION 



S£Q 75 



2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 

2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 



024330 
024332 
024332 
024340 
024342 
024344 
024344 
024346 

02435C 
024350 
024352 
024354 
024356 
024360 
024360 
024360 
024366 

024370 
024370 
024372 
024374 
024376 
024400 
024400 
024404 
024406 
024406 
024410 
024410 
024410 
024414 
024422 
024430 

024432 
024432 
024434 
024436 
024440 
024442 
024442 
024450 
024456 
024460 
024460 
024462 
024464 
024466 
024470 
024470 
024476 
024504 
024506 
024506 



005202 

023737 
001401 
005202 

005702 
001404 
000030 

104457 
000030 
022306 
020064 



032777 
001404 
000031 

104457 
000031 
021002 
017744 

004737 
103001 

104460 



004737 
052777 
032777 
001004 
000032 

104457 
000032 
021174 
000000 

042777 
032777 
001404 

104457 
000032 
021235 
000000 

052777 
052777 
001004 

104457 



002176 002166 



000004 1SS6S6 



014066 



013324 
010000 
010000 



155620 
155612 



40$: 

50$: 
ENUM 



60$: 
T2C: 



ENUn = 



10$: 



20$: 
T2D: 



ENUM = 



010000 
010000 



155572 
155564 



10$: 



020000 
020000 



155544 
155536 



20$: 



INC 

CMP 
BEQ 
INC 



R2 

ETRSR^ATRSR 

50$ 

R2 



TST R2 

BEQ 60$ 

»0<ENUH ♦ 1> 

ERRSOFT ENUM,HRULPFL,ERR4 

TRAP C$ERSOFT 

.WORD 24 

.WORD MRULPFL 

.WORD ERR4 



.•INDICATE ERROR 

: CHECK STATUS REGISTER 
;0K 

.'INDICATE ERROR 

;ANy ERRORS? 
;N0 

.-INCREMENT ERROR NUMBER 
.•REPORT ERROR 



BIT #FPTS«aTRSR 
BEQ 10$ 
*D<ENUM ♦ 1> 
ERRSOFT ENUM.EM4A.ERR2 



TRAP 
.WORD 
.WORD 
.WORD 

JSR 
BCC 
ERROR 
TRAP 



JSR 
BIS 
BIT 
6NE 

*D<ENUM 



C$ERSOFT 
25 

EM4A 
ERR2 

PC.TESTN 
20i 

C$ERR0R 



PC CPWR 
#0l0000.aTRCR 
#010000,aTRCR 
10$ 

1> 



ERRSOFT ENUM.M16SFL 



TRAP 
.WORD 
.WORD 
.WORD 

BIC 
BIT 
BEQ 

ERRSOFT 

TRAP 

.WORD 

.WORD 

.WORD 

BIS 
BIT 
BNE 



C$ERSOFT 
26 

ni6SFL 
0 

fCIOOOO.aTRCR 
fOIOOOO.aTRCR 
20$ 

ENUM.M16CfL 

C$ERSOFT 

26 

M16CFL 
0 

#020000. 8TRCR 
f 020000, aTRCR 
30$ 



.•CHECK FOR WRITE ENABLE RING 

;IF WRITE ENABLE RING IS PRESENT 
; THEN CONTINUE 
.•INCREMENT ERROR NUMBER 
.•REPORT ERROR. GET RING INSTALLED 



.'RING IS PRESENT 

:MAKE SURE ON LINE 
;0K 

.REPORT ERROR 



.•TEST SET AND CLEAR UNIBUS EXTENSION BITS 
.•RESET TR79 

:SET UNIBUS EXTENSION BIT 16 
;TEST UNIBUS EXTENSION BIT 16 
.SKIP IF OK 

.-INCREMENT EHROR NUMBER 
: REPORT ERROR 



ERRSOFT ENUM,M17SFL 
TRAP C$ERSOFT 



; CLEAR THE BIT 
.-TEST THE BIT 
.-SKIP IF CLEAR 
.•REPORT ERROR 



:SET UNIBUS EXTENSION BIT 17 
.'TEST UNIBUS EXTENSION BIT 17 
.•SKIP IF OK 
.•REPORT ERROR 



CZTRAC.P11 



2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 



024510 
024512 
024514 
024516 
024516 
024524 
024532 
024534 
024534 
024536 
024540 
024542 
024544 
024544 
024552 
024560 

024562 
024562 
024564 
024566 
024570 
024572 
024572 
024600 
024602 
024602 
024604 
024606 
024610 
024612 
024612 
024620 
024626 
024630 
024630 
024632 
024634 
024636 
024640 
024640 
024640 
024640 
024644 
024646 
024654 
024662 

024664 
024664 
024666 
024670 
024672 
024674 
024674 
024674 



30-DEC-81 11:08 

OOv/032 
021^77 
000000 



L 6 

TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 

.UORD 26 
.WORD M17SFL 
.WORD 0 



042777 020000 155516 
032777 020000 155510 
001404 

104457 
000032 
021337 
000000 

052777 030000 155470 
032777 010000 155462 
001004 
000033 

104457 
000033 
021174 
000000 



30$: 



020000 155442 



032777 
001004 

104457 
000033 
021277 
000000 



042777 030000 155422 
032777 030000 155414 
001404 

104457 
000033 
021402 
000000 



40$: 



ENUM 



50$: 



60$: 



70$; 
T2E: 



013700 000340 
104441 

052777 000100 (55366 
032777 000100 155360 
001004 
000034 

104457 
000034 
022161 
000000 



042777 000100 155340 



BIC 
BIT 
BEO 

ERRSOFT 

TRAP 

.WORD 

.WORD 

.WORD 



#020000. aiRCR 
#020000, aTRCR 
40$ 

ENUM.M17CFL 

C$ERS0FT 

26 

M17CFL 
0 



BIS #30000, aTRCR 
BIT #10000, aTRCR 
BNE 50$ 
*D<ENU« ♦-1> 
ERRSOFT CNU«,M16SFL 
TRAP C$ERSOFT 
.WORD 27 
.WORD M16SFL 
.WORD 0 



BIT 
BNE 

ERRSOFT 

TRAP 

.WORD 

.WORD 

.WORD 

BIC 
BIT 
BEO 

ERRSOFT 

TRAP 

.WORD 

.WORD 

.WORD 



#20000, aTRCR 
60$ 

ENUM.M17SFL 

C$ERSOFT 

27 

M17SFL 
0 

#30000, aTRCR 
#30000, aTRCR 
70$ 

ENUn,MXCFL 
C$ERS0FT 

27 

RXCFL 
0 



CLEAR THE BIT 
TEST THE BIT 
SXIP IF OK 
REPORT ERROR 



SET BOTH EA BITS 

TEST BIT 

OK 

INCREMENT ERROR NUMBER 
REPORT ERROR 



TEST SECOND BIT 
OK 

REPORT ERROR 



CLEAR EA BITS 
HAKE SURE 
OK 

REPORT ERROR 



ENUM = 



20$: 
T2F; 



SETPRI 

MOV 

TRAP 

BIS 

BIT 

BNE 

'D<ENUM 
ERRSOF 
TRAP 
.WORD 
.WORD 
.WORD 



BIC 



PRI07 
PRI07,R0 
CSSPRI 
#8IT6, aTRCR 
#8JT6. aTRCR 
20$ 
♦ 1> 
T ENUM,MIENFL 
CSERSOFT 
28 

MIENFL 
0 



#BIT6, aTRCR 



.•TEST SET INTERRUPT ENABLE BIT 

;SET PRIORITY TO INHIBIT INTERRUPTS 



SET INTERRUPT ENABLE BIT 

CHECK IF SET 

OK 

INCREMENT ERROR NUMBER 
REPORT FAILURE 



.-TEST CLEAR INTERRUPT ENABLE BIT 
.•CLEAR INTERRUPT ENABLE 



CZTRAC.PII 



30-DEC-81 11:08 



n 6 

TEST2 CHECK CONTROL LOGIC bITH niNinUM TAPE MOTION 



2521 


024702 


032777 


000100 


2522 


024710 


001404 




2523 




000035 




2524 


024712 






2525 


024712 


104457 




2526 


024714 


000035 




2527 


024716 


022204 




2528 


024720 


000000 




2529 


024722 






2530 


024722 






2531 


024722 


004737 


014066 


2532 


024726 


103001 




2533 


024730 






2534 


024730 


104460 




2535 


024732 






2536 


024732 


032777 


000040 


2537 


024740 


001010 




2538 


024742 


004737 


013324 


2539 


024746 


004737 


012416 


2540 


024752 


004737 


013534 


2541 


024756 


103001 




2542 


024760 






2543 


024760 


104460 




2544 


024762 






2545 


024762 


012737 


025052 


2546 


024770 


004737 


014066 


2547 


024774 


103001 




2548 


024776 






2549 


024776 


104460 




2550 


025000 






2551 


025000 


013703 


025050 


2552 


025004 


012337 


002212 


2553 


025010 


010337 


025050 


2554 


025014 


004737 


013206 


2555 


025020 


004737 


013664 


2556 


025024 


103004 




2557 




000036 




2558 


025026 






2559 


025026 


104457 




2560 


025030 


000036 




2561 


025032 


022337 




2562 


025034 


020064 




2563 


025036 






2564 


025036 


023727 


025050 


2565 


025044 


001351 




2566 


025046 


000407 




2567 








2568 


025050 


025052 




2569 


025052 


000406 


001012 


2570 


025060 


000022 


000424 


2571 


025066 






2572 









155332 



155304 



ENUH = 



10S: 

T2J: 



10S: 



025050 



20S: 
30S: 

35$: 



025066 



001414 
001030 



BIT #8IT6,aTRCR 

8EQ 10s 
•D<ENUM ♦ 1> 
ERRSOFT ENUn.MlDSFL 

TRAP CSERSOFT 

.WORD 29 

.WORD MIDSFL 

.WORD 0 



CHECK IF CLEAR 
SKIP IF ZERC 
INCREMENT ERROR NUMBER 
REPORT FAILURE 



ENUn ~ 



40S: 



50$: 
55$: 

60$: 



JSR 
BCC 
ERROR 
TRAP 

BIT 

BNE 

JSR 

JSR 

JSR 

BCC 

ERROR 

TRAP 

MOV 

JSR 
BCC 
ERROR 
TRAP 

MOV 
MOV 
MOV 

JSR 
JSR 
BCC 

•0<ENUM 
ERRSOFT 
TRAP 

.yoRD 

.WORD 
.WORD 

CMP 
BNE 
BR 

.WORD 
.yCRO 



PC.TESTN 
10$ 

C$ERROR 



;TEST ILLEGAL COMM/MDS 

;MAKE SURE TRANSPORT ON LINE 
:0N LINE. NO ERROR 
; REPORT ERROR 



«8IT5,aTRSR 
20$ 

PC.CPWR 
PCRUINO 
PC.CHEKl 
20i 

C$ERR0R 

#55$, 50$ 

PC-TCSTN 
35i 

C$ERROR 

50$,R3 
(R3)*.USEA 
R3.50i 
PCOOILC 
PC. CHEW 
40i 
♦ 1> 

ENUN.MJLFFL,ERR4 
CSERSOFT 

50 

MILFFL 
ERR4 

50$.«60$ 

30$ 

60S 



.REAor 



IF AT LOAD POINT 

THEN SKIP REWIND 
RESET TR79 
REWIND 

CHECK FOR ERROR 
OK 

REPORT SR^R 



;AT LOAD POINT 

;POJNT TO FIRST ILLEGAL FUNCTION 
.-HAKE SURE TRANSPORT ON LINE 
;0N LINE. NO ERROR 
; REPORT ERROR 

:SELECT NEXT FUNCTION 

POINT TO NEXT ILLEGAL FUNCTION 
SPECIFY FlflCTION TO TRY 
UPDATE POINTER 
INITIATE OPERATION 
CHECK RESULT 
OK 

INCREMENT ERROR NlfBER 
REPORT ERROR 



;IS THERE ANOTHER FUNCTION TO TRY 
;VES. 60 TRY IT 

:N0. CONTINUE UITH NEXT SUBTEST 



#55$ .'POINTER TO NEXT FUNCTION TO TRY 

lLC03.ILC05.ILC06.lLCn,ILC12.lLCU ;LIST OF ILLEGAL FIWCTIONS 



ZTRAC. 


P11 


30-DEC-81 


11:08 




CJf J 










CJf H 


UC juoo 








CJf J 










CJ f O 










CJf f 










CJfO 










cjfy 




















C JO 1 










c30c 










C JO J 






























7SRA 










3SR7 










c^OO 










C JOT 










c JTw 










C 1 










C JTC 










C JTJ 












vc jUOo 


nnni t7 

UUU 1 J r 


\JCJCCC 




C JTJ 












VCJVi c 


UUH r Jf 


01 AOAA 
U 1 HUOD 




PS07 


VC JU' o 


1 UjUU I 






7SQR 

C J 'O 


Uc J 1 uu 










Uc J 1 w 


1 u*»*»ou 








Uc J 1 vc 








cOv 1 


Uc ^ 1 Uc 


u 1 c» j» 


OOOAOA 
UUU*tUo 


00551 5 
UUcc 1 c 


cOUc 


Uc J 1 lU 


nS3777 

yjjcf jf 


000101 
UUU 1 U 1 


00551 5 
UUcc 1 c 


C%juj 


Uc ^ 1 1 o 


0^5777 


000001 


1 ^^1 50 

1 J J I cU 


cOU*t 


UC^ 1 CH 


ni?777 
U 1 c • » f 


177777 

I f f f f f 






Uc J 1 JC 


01 ?777 

U 1 c» » f 


UUOjcc 


1SS1 10 
1 J J 1 1 U 


cOUO 


VCJ 1 lU 


U ICf Jf 


1 77777 

\ f f f 1 f 


0055A0 
UUccHU 




\ICJ I *»o 








cOVO 


Uc J IHO 


U 1 Jf uu 


0001^0 
UUU 1 tu 






n? ^1 

Uc J 1 JC 


1 U*»*»*» 1 






CO 1 U 


Uc J 1 J*» 


ni 7777 
U 1 Jf f f 


UUcc 1 c 


1 5 jUOU 


CO 1 1 


UC^ IDC 


UU*i f Jf 


01 XX^L 
U 1 jjj*» 




CO 1 c 


Uc J lOO 


UUHf Jf 


01 X7^L 
U 1 JC jH 




CO 1 J 


Uc J 1 f c 


UUJf Jf 


0077A0 




CD 1 <• 


n?si 7A 

Uc J 1 r o 


nni AHA 

UU IIUh 






PAIS 

CO 1 J 




UUUU J r 






CO lo 


Uc JcUU 








7 

CO 1 f 


Uc JcUU 


1 U*»*» Jf 






CO 1 o 


Uc JCUc 


UUUU J f 






CO 1 y 


Uc JCU*» 


Uc 1 f Uf 






cocU 


Uc^cUO 


nooooo 






cCc 1 


VCjC iu 








cOcc 


VCJC 1 u 


01 7700 
U 1 J f UU 


000 7A0 




PA?'? 
cue -J 


Uc Jc 


1 (\LLL 1 






cOc** 


Uc JC 1 o 




01 77?^ 
U 1 J jc 




coc J 


Uc Jccc 








coco 


Uc JCCC 


UU*» f J f 


01A0AA 
U I1UOO 




?A?7 
coc ' 


ucjcco 


107001 
1 U jUU I 






2628 


025230 

Vb ^fc 









N 6 

TESra CHECK CONTROL LOGIC WITH niNlMUM TAPE MOTION 



5E0 78 



TSTINT; 



SOS: 



ENU« = 



60S: 



TESTK: 



.•TEST TR79 INTERRUPT 

.-NOTE: 

THE FOLLOWING CODE TO TEST TR79 INTERRUPTS IS INCLUDED FOR 
COMPLETENESS. THIS SECTION OPENS WITH A JU«P SO THAT, AS WRITTEN, 
THE INTERRUPT TEST IS NOT EXECUTED. 

TO EXECUTE- THE INTERRUPT TEST, THE JUMP CAN BE CHANGED TO A NOP,NOP 
USING OD OR CONSOLE SWITCHES WHEN THE DIAGNOSTIC IS RUN. 

THIS APPROACH IS ADOPTED TO ACCO«ADATE THE FACT THAT TR79 GENERATED 
INTERRUPTS ALLWAYS HUNG THE PROCESSOR DURING TESTING OF THIS DRS 
COMPATIBLE VERSION OF THE DIAGNOSTIC. 

10-NOV-81 

GLORIA MEREDITH 

MERRIMACK DIAGNOSTIC ENGINEERING 
MAIL: MK1-VL38 
DTN: 264-6U6 
ENET: VAX4::MEREDlTH 



JMP 

JSR 

see 

ERROR 
TRAP 

MOV 

BIS 

BIC 

MOV 

MOV 

MOV 

SETPRI 

MOV 

TRAP 

MOV 

JSR 

JSR 

TST 

6EQ 

•D<ENUM 
ERRSOFT 
TRAP 
.WORD 
.WORD 
.WORD 
SETPRI 
MOV 
TRAP 
JSR 

JSR 

sec 

ERROR 



TESTK 

pc.testn' 
soi 

CSERROR 



;0«IT EXECUTION IF INTERRUPT TEST 
;SET UP TO INTERRUPT ON ILLEGAL COMMAND 

;MAKE SURE TRANSPORT ON LINE 
;0N LINE. NO ERROR 
; REPORT ERROR 



#ILC03.USEA 
/riNTEN8!G06IT,USEA 
#8IT0,aTRSR 

/r-i,aTRWc 

flNPUT.aiRBA 
»-1,INTFLG 
PRI03 
PRI03,R0 
CSSPRI 
USEA,aTRCR 
PCRWWAIT 
PC.CPYTRR 
INTFL6 
60S 
♦ 1> 

ENUM,MINTFL 

CSERSOFT 

31 

MINTFL 

0 

PRI07 
PRI07, RO 
CSSPRI 
PCCPWR 

;TEST 

PC.TESTN 
10S 



.'ENABLE INTERRUPT AND PERFORM ILLEGAL FUNCTION 
SPECIFY ILLEGAL FUNCTION 
SPECIFY INTERRUPT ENABLE AND GO 
NEGATE INHIBIT rR79 OPERATION 
SPECIFY WORD COUNT 
SPECIFY BUS ADDRESS 
SPECIFY "EXPECTING INTERRUPT" 
SET PRIO..TV TO ALLOW TR79 INTERRUPTS 



INITIATE TR79 OPERATION 
WAIT 

COPY REGISTERS 
TEST "INTERRUPT OCCURRED' 
O.K. INTERRUPT OCCURRED 
INCREMENT ERROR NUMBER 
REPORT FRROR 



; INHIBIT TR79 INTERRUPTS 



INDICATOR 



;TR79 POWER CLEAR 
WRITE FROM LOAD POINT 

.•MAKE SURE TRANSPORT ON LINE 
;0N LINE. NO ERROR 
.REPORT ERROR 



C/TRAC . 


Pi 1 


50-DEC-ol 


11. AO 

11 :0o 




tccto 


CnCtK lUN 




025230 


104460 








TDAQ 
TRAP 


2650 


025232 








1 AC ■ 

10*: 




2631 


025232 


A70777 

032 f r r 


AAAA/ A 
000040 


1 CCAA/ 

15500^ 




Q r T 

Di 1 


db5c 


AOC O/ A 

025240 


Arti A1 A 
00 lOlO 










2o55 


025242 


AA/ 777 

00*k'3/^ 


A1 770/ 

01332^ 






1 CD 


263s 


AOC O/ ^ 

025246 


AA/ 77 7 

00H^3r 


A1 0/ 1 z 

012416 






1 CD 


2o3i 


AOC OC O 

025252 


AA/ 777 

00H^3r 


A1 7C7/ 

0I353h 






1 CD 

JoR 


2636 


AOC OCA 

025256 


1 A7AA1 
103001 










263f 


025260 










CDDAD 


263S 


025260 


1 A/ / ZA 

10*t«i60 








TD AO 

1 Rnr 


2639 


O C OA o 

025262 








OAC • 

20»: 




26A0 


nocoAO 
025262 


A1 0777 
012/^3/ 


1 777AA 

1 // /OO 


AA001 / 

00221V 




HOV 


26A1 


AOC 07A 

0252r0 


AA/ 777 

OOh '3/ 


A1 OZ/ O 

01 26'»2 






1 CD 

J5R 


OA./ 0 
2o*i^ 


noco7/ 


nn/ 777 
'JOnr 3/ 


A1 7'5C/ 

0 1 325«» 






ICO 

JdR 


cO*»3 


U253UU 


ni 0777 

012/^3/ 


1 / Oi^AO 

i*»2602 


AAOI 7Z 

0U2 1 /«• 




MAU 


2o*»»» 


nocTOiL 
0253U6 


11 0777 


AAOAZA 

002UhU 


AAOI 7^ 

UUe 1 fo 




Mnu 
nuv 


2o*»5 


rtOC71 / 
U2531H 


rt07777 

023/3/ 


AAD1 7Z 

UU2 1 r'* 


AAOI AZ 






2o*»6 


noc700 


rtA1 / A1 

001 sOl 








OCA 


COHf 


rtOC 70/ 

02532h 


AAC OAO 

005202 






7AC • 

3U>: 


I Mr 


20H0 


noc 70i^ 
025326 










2o*»y 


U25326 


A07777 

023/3/ 


AAOI 7A 
WC 1 lO 


AA01 




mo 


2o)U 


rtOC77/ 

02533H 


AA 1 / A 1 
00 1 H\Jl 








QC A 




noc 77A 
025336 


AACOAO 

U05202 










26)2 


noc7/ n 
U253sU 








ZAC • 




26)3 


rtoc7/ n 
0253hU 


AA C 7A 0 

005/02 








TCT 


263*» 




AA 1 / AZ 








ocw 


26)5 




AAAAZA 

UUOOhO 






CMI M - 
CNUn - 


yccwjn 


2636 


rtOCT/ / 

0253hh 










COOCAF T 


04LC7 

26 J f 




1 AZ / C 7 

1U«»h5/ 








TOAD 


26jo 


rtOC7/ 

0253^6 


AAAAZA 








unon 


OiL.CQ 

265t 


U2535U 


A007i»0 

UccjOc 








unon 


26o0 


025352 


AOAAAZ 

U2006** 








unon 


26oi 


02535«» 


AAZ 777 


A1 7T9Z 




CAC • 


ICO 


2662 


U2530U 








TCCTM* 

1 Cain: 




OAJL.T 

2663 


U2536U 


nn/. 777 


A1 / ndL.dL. 

01hU66 






ICO 


266<) 


U253o*» 


1 A7AA1 








Of r 


2665 


U25366 










COOAD 

CRRUR 


2666 


U25306 


1 a/ zaa 








TOAD 


OiLX7 
COOr 










lU*: 




266o 


U253r U 


A70777 

032/ / / 


AAAAZA 


1 CZAZA 




Of T 

Di 1 


26oy 


Uc J J'O 


(\n^t\^f\ 
WJ lU lU 








DMC 

one 


ox7n 


U25«»UU 


A/\Z777 


A1 775Z 






ICD 


Oil 71 

26r 1 


U25*»v« 


AAZ 777 
UVMif J/ 


A1 0Z1 A 






1 CD 
J OR 


CO fc 


U25h1U 


AAZ 777 


A1 

U 1^5^H 






ICO 


26) 3 


Uc5^ IH 


1 U3UU 1 








nil 


26f ^ 


025^10 










coono 
CRRUH 


OA7C 

26f^j 


U25*» 16 


1 AZZAA 








TOAD 


26^6 


U25«iiU 








one • 
cU«: 






U25*2U 


AAZ777 


A1 LnAA 






1 CD 

JoR 


Oi^ 7fl 
26/0 


U25*2m 


1 A7nni 








orr 
Oil 


dory 


AOCZOA 

U25h^o 










CDDAD 

CRRUR 


26o0 


U25«»20 










TDAO 

1 RAr 


cOO 1 


nocz7n 

\JC Jv 












2682 


025430 


004737 


013072 






JSR 


2683 


025434 


004737 


013254 






JSR 


2684 


025440 


012737 


143234 


002174 




MOV 



B 7 

FROL LOGIC WITH MINinun TAPE MOTION 



SEO 79 



CSERROR 

#BIT5,aTRSR 
20S 

PCCPWR 
PC.RWIND 
PC.CHEKI 
20i 

CSERROR 

#-100.USEB 

PC.WRT 

PC.CPYTPR 

#142602, ETRCR 

#2040,ETRSR 

ETRCR, AIRCR 

30$ 

R2 

ETRSR,ATRSR 
40$ 

k2 



R2 
50$ 
► 1> 

ENUn,nULPFL,ERR4 

C$ERSOFT 

32 

BWLPFL 

ERR4 

PCCPWR 

.TEST WRI 

PCJESTN 
lOi 

C$ERR0R 

«81TS,aTRSR 
20$ 

PCCPWR 
PCRWINO 
PC.CHEKI 
20i 

C$ERR0R 

PC-TESTN 
30i 

C$ERROR 

PCWTEOF 
PC.CPYTRR 
#143234 ETRCR 



IF AT LOAD POINT 

THEN SKIP REWIND 
RESET TR79 
REWIND 

CHECK FOR ERROR 
OK 

REPORT ERROR 



.■WRITE AT LOAD POI''. 

.•SPECIFY WuhD COUNT FOR WRITE 
;TRY TO WRITE AT LOAD POINT 
.•COPY TR79 REGISTERS 
.SPECIFY EXPECTED RESULT 
.SPECIFY CXPCCTfC RESULT 
.-TEST COWAND REGISTER 
;0K 

.•INDICATE ERROR 



.TEST STATUS REGISTER 
;0K 

.-INDICATE ERROR 

.ANY ERRORS? 
;N0 

INCREMENT ERROR NUMBER 
.REPORT ERROR 



;TR79 POWER CLEAR 
TE EOF FROM LOAD POINT 

;«AKE SURE TRANSPORT ON LINE 
;JN LINE. NO ERROR 
; REPORT ERROR 



; READY 



IF AT LOAD POINT 

THEN SKIP REWIND 
RESET TR79 
REWIND 

CHECK FOR ERROR 
OK 

REPORT ERROR 



:AT LOAD POINT 

;«AKE SURE 



TRANSPORT ON LINE 
ON LINE. NO ERROR 
REPORT ERROR 



; WRITE EOF AT LOAD POINT 

TRY TO WRITE EOF AT LOAD POINT 
;COPV TR79 REGISTERS 
; SPECIFY EXPECTED RESULT 



CZTRAC.PT: 30-DEC-81 11:08 



C 7 

TEST2 CHECK CONTROL LOGIC WITH MINIMU^ 



2685 

2686 

i:687 

2688 

2689 

2690 

2691 

2692 

2693 

269<. 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

270A 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

27U 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2112 

2721 

2121* 

2725 

2726 

2727 

272S 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 



025446 
025454 
025462 
025464 
025466 
025466 
025474 
025476 
025500 
025500 
025502 

025504 
025504 
025506 
025510 
025512 
025514 

025514 
025514 
025516 



012737 
023737 
001401 
005202 

023737 
001401 
005202 

005702 
001404 
000041 

104457 
000041 
022437 
020064 



104433 
012777 



002040 
002174 



002176 
002164 



002176 002166 



40$: 

50$: 
ENUn 



60S: 

T2G: 



000026 154516 



025524 


052777 


A A « AAA 

004000 


154510 


025532 


012701 


177300 




025536 


00520f 






025540 


001376 






025542 


012777 


004000 


154472 


025550 


001004 
000042 






025552 








025552 


104457 






025554 


000042 






025556 


02:443 






025560 


000000 






025562 








025562 


012737 


002224 


002220 


025570 


m7l7 


013362 




025574 


032777 


004000 


154440 


025602 


001404 
000043 






025604 








025604 


104457 






025606 


000043 






025610 


021500 






025612 


000000 






025614 








025614 


052777 


002000 


154422 


025622 


001435 






025624 


004/37 


013254 




025630 


0A27Z7 


000036 


002164 


025636 


012737 


002200 


002174 


025644 


012737 


002247 


002176 


025652 


023737 


002174 


002164 



MOV 
CMP 
BEQ 

INC 



#2040,ETRSR 

ETRCR.ATRCR 

40$ 

R2 



CMP ETRSR.ATRSR 

BEQ 50$ 

INC R2 

TST R2 

BEQ 60S 
•D<ENU« ♦ 1> 
ERRSOFT ENUn,MUELPFL,ERR4 

TRAP CJERSOFT 

.WORD 33 

.WORD MUELPFL 

.WORD ERR4 

.-TEST TR79 RE! 

BRESET 

TRAP CSRESET 

MOV #26,aTRCR 



10S; 



ENUM = 



20$: 



ENUM = 



30S: 



BIS 
MOV 

INC 
BNE 
BIT 
BNE 

*D<ENU« 
ERRSOFT 
TRAP 
.WORD 
.WORD 
.WORD 

nov 

JSR 
BIT 
BEQ 

•D<ENUR 



f8iT1t,aTRCR 
#-500. R1 

R1 
10$ 

«8iT11,aTRCR 
20$ 

*■ 1> 

ENUH.MPWCL 

l$ERS0FT 

34 

HPWCL 
0 

fDLXPWR.OLX 
PCWWAIT 
«8iT11,aTRCR 
30$ 

♦ 1> 



ERRSOFT ENUn.MPWST 

TRAP C$ERS0FT 

.WORD 35 

.WORD MPWST 

.WORD 0 

BIT «8iT10«aTRSR 

BEQ 60$ 

JSR PC-CPYTRR 

BIC #00036. ATRCR 

MOV #2200,ETRCR 

MOV #2247,ETRSR 

CMP ETRCR.ATRCR 



SEQ 80 

TAPE MOTION 

.SPECIFy EXPECTED RESULT 
;TEST COMMAND REGISTER 
;0< 

; INDICATE ERROR 

;TEST THE STATUS REGISTER 

;0< 

.•INDICATE ERROR 

;aNY ERRORS? 
;N0 

.'INCREMENT ERROR NUMBER 
.•REPORT ERROR 



(TR79 POWER CLEAR) 
PDP-11 RESET 

SET A FUNCTION IN COMMAND REGISTER 
THIS IS A DUMMY COMMAND TO SEE IF 

IT WILL CLEAR 
SET TR79 PWRCLR BIT 
SET DELAY CONSTANT 

COUNT A DELAY TICK 
KEEP TICKING 

IF TR79 POWER CLEAR BIT IS SET 
CONTJINUE 

INCREMENT ERROR NUMBER 

ELSE REPORT ERROR. POWER CLEAR BIT 



SET POWER CLEAR DELAY CONSTANT 
WAIT 

TEST PWRCLR BIT 
OK 

INCREMENT ERROR NUMBER 
REPORT ERROR 



IF NOT ON LINE 

THEN OMIT CHECKING REGISTERS 
COPY TR79 REGISTERS 
CLEAR UNW\NTED BITS 
SPECIFY EXPECTED RESULT 
SPECIFY EXPECTED RESULT 
TEST COMMAND REGISTER 



C2TRAC P11 30-DEC-8- 11:08 TEST2 CHECK C 



■37/. 1 


Uc j(K>U 


nm Am 
UU 1 I 








OCU 






AACTA- 








Tlur 


CI** J 














■57/ L 


025664 


nAT7T' 

[jHjf ji 


f\f\o^ 71. 
vvd 1 10 


noil 




BiC 






JUj r JI 


nn3i 
vvd 1 00 






1 3 1 


37/ A. 
df HO 

07Z.7 




AA1 / A- 

UU1*»U 








DCW 


f\o^7nt\ 

\JCJl\J\J 


UU3cU< 








TNT 


77Z.S 
cr ••0 


f\0^7f\0 

yjcjiyjc 








co< • 

3U« • 




D7Z.Q 
Cf ••T 


\1Cji\jC 


MMjiMc 








T^T 


97Sn 


Uc3r Uh 










ocw 

1/ vcnpun 


07^1 
Cf J 1 


UUUUm** 








dfJC 


n3S7nA 

Uc3r UO 










CWnOUr 1 


dfJJ 


r\0^7C\fs. 
yjcj ' uo 


1 Umm J r 








TRAP 


ifj'* 




UUUUhm 








unRt) 

• WUnl/ 


CfjJ 


03^71 3 


033337 
MCCCCi 








DORR 






UcUUO** 








• WUnI/ 


d'Jl 


Uc3 r 1 0 


UU*t r Jr 


01 773A 

U 1 jjCH 






ICR 


cijO 


n3«;7'^3 

VCJI cc 








1 Cn 1 • 






r\0K700 
VCJI cc 


UUHf Jf 


U 1 '•UOO 






ICR 


07 All 


VCJl CO 


1 UJUU 1 








OL L 


57A1 


Uc J ' Jv 










FRROR 


c'Oc 


VCJ 1 Jv 


1 UH*tOU 








TRAP 


c ' 


ucj 1 jc 








10<- 

1 V9 • 






n3S773 
\ICjI jc 


073777 

MJCI 1 1 


0000^0 


1^4704 

1 JHJVH 




BIT 




n9S7£0 

Uc3' **U 


001010 
uv 1 u 1 V 








one 


c ' 00 


n?S7A3 

Uc3» "»C 


00^777 


01 7774 

U 1 JJC* 






JSR 


P7A7 
C'Or 


yicj 1 


004777 


01941^ 
V 1 c*t 1 0 






ICR 


C'OO 


n3S7S? 
\JCji jc 


00A777 

UUHf jl 


017S74 

V 1 JJJH 






ICR 




\icji jo 


107001 

1 UJwU 1 










3770 


n9S7AA 
wc3r OV 










FRRt)R 


3771 


n9^7AA 

WC^'UV 


10^4^0 
1 u*t*tou 








TRAP 


3773 


Uc 3 r Oc 








70<- 

CV9 • 




3777 


Uc^' Oc 


004777 


0140AA 

U 1 HUOO 






ICR 


077 L 
CI f* 


uc J' 00 


107001 

1 UJUw 1 








OV \t 


377S 


ft3S77rt 










FRROR 


077A 
CI .0 


n3S77rt 
MCJI iM 


1 UtHOU 








TRAP 


3777 


no^777 

MCJ lie 








70<> 

JV9 • 




377R 
CI 1 0 


n3S773 
MCJI 1 C 


013777 

U 1 C ' J' 


1 77777 
I f 1 f f 1 


007714 

VVCC \ H 




MOW 


377Q 


UcOUvw 


00A777 

UvHf Jf 


01 70?4 






ICR 


2780 


l/COvVH 


004777 

UvHf Jl 


0173S4 

U 1 JCJ'* 






ICR 


37R1 


UcOV • M 


013777 
u 1 c f Jl 


1^7^10 


0031 7L 

VVC \ 1 H 




MOV 


37A3 


UcOV 1 0 


013777 
u 1 c f Jl 


003040 

VVCVHV 


0071 7A 
vUc 1 ' 0 




MOV 


C ' 


i/cOvc*» 


01P777 

U 1 C r Jl 


1 r r r r r 


007700 




MOV 


37A^ 

C f OH 


wcovjc 


0P7777 

MCJI Jl 


vv£ 1 r *f 


007164 




TMP 


c r 0^ 


n3Ml£0 


001^01 








RFO 

oc H 


37AA 
c ' 00 

CI 01 


i/cowie 


WJCvC 










n3A.')^4 








40S' 




77M 
c ' 00 


n3MU4 


0P7777 

VCJI Jl 




007166 
VVC 1 00 




TMP 


C f OT 


03M)^7 
wcOvJc 


001^01 

W 1 HV 1 








DC H 


2790 


026054 


005202 








INC 


279^ 


026056 








50S: 




2792 


026056 


005737 


002172 






TST 


2793 


026062 


001401 








BEO 


2794 


026064 


005202 






60S: 


INC 


2795 


026066 










2796 


026066 


023737 


00;?200 


002170 




C«P 



D 7 

FROL LOGIC yiTH MINIMUM TAPE MOTION 



SEQ 81 



40$ 

R2 

ETRSR.ATRSR 

ATRSR 

50S 

R2 



SKIP IF OK 
INDICATE ERROR 

CLEAR UNWANTED BITS 
TEST STATUS REGISTER 
SKIP IF OK 
INDICATE ERROR 



ANY ERRORS? 
NO 

INCREMENT ERROR NUMBER 
REPORT ERROR 



R2 
60S 
► 1> 

ENUM,MPCFL,ERR4 
CSERSOFT 
36 

MPCFL 
ERR4 

PC.CPWR :TR79 POWER CLEAR 

;TEST SPACE REVERSE AT LOAD POINT 



PC.TESTN 
10S 

CSERROR 

#8IT5,aTRSR 
20S 

PC.CPWR 
PCRWIND 
PCiCHEKI 
20i 

CSERROR 

PC.TESTN 
30i 

CSERROR 

#-1.USEB 

PCSPR 

PC-CPyTRR 

#143610,ETRCR 

#2040,ETRSR 

#-1,ETRWC 

ETRCR.ATRCR 

40S 

R2 

ETRSR.ATRSR 

50S 

R2 

ATRBA 
60S 

R2 

ETRWC^ATRWC 



.'READY 



MAKE SURE TRANSPORT ON LINE 
ON LINE. NO ERROR 
REPORT ERROR 



IF AT LOAD POINT 
SKIP REWIND 
RESET TR79 
REWIND 

CHECK FOR ERROR 
OK 

REPORT ERROR 



;AT LOAD POINT 

.-HAKE SURE TRANSPORT ON LINE 
;0N LINE. NO ERROR 
.REPORT ERROR 

.•SPACE REVERSE AT LOAD POINT 
;SPECIFy COUNT 

; SPACE REVERSE AT LOAD POINT 
;COPy TR79 REGISTERS 
.SPECIFY EXPECTED RESULT 
^EXPECTED RESULT 
;EXPECTED 

;TEST COMMAND REGISTER 
;0K 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 

TEST BUFFER ADDRESS 
OK 

INDICATE ERROR 
TEST THE WORD COUNT 





P1 1 


3w l/C L O 1 


11-08 

I I • WW 




1 C d 1 c 


rHFTK roN 


5707 


07607^ 

UCOU' *» 


001 A01 
wU 1 *tw 1 










c > "O 


UcOUr o 


005202 












0761 00 

UCO 1 WW 








70S- 

• w* • 






076100 

wCO I WW 


00S70? 

ww^ r \JC 








TST 




076107 

wCU 1 wC 


001404 








BEQ 


PRO? 




OOOOAS 

Uwww*t J 










COU J 


07610^ 

wCO I wH 












076104 

wCQ I 


104457 

1 w*t*t J t 








TRAP 




076106 

wC w 1 wO 


000045 








.WORD 




0761 10 

wCO 1 I w 


07356? 








UORD 


?ao7 

COUf 


0761 1? 

wCU 1 1 c 


07010? 

wC w ■ wC 








UORD 


7808 


0761 14 

wCO I 1 H 


004737 


013324 




80S- 

WV<9 • 


JSR 


7809 


076170 

wCO I Cw 








1 cno • 




7810 

CO 1 w 


076170 

WCO 1 C W 


004737 

ww*t • J t 


014066 

w ' ■•www 






JSR 


7811 

CO ■ 1 


0761 24 

vCO 1 C** 


103001 








acc 


7817 
CO 1 c 


vCO 1 CO 










FRROR 


781 ^ 

CO 1 J 


0P^1 P^ 

vCO 1 CO 


1 W*t"fOW 








TRAP 


781 & 

CO 1 *v 










10S- 

1 W"* • 




781 S 
CO 1 J 


0PA1 ^0 

vCO 1 J\J 


037777 

w^C f f f 


000040 

wwwwfw 


154106 

1 1 WW 




BIT 


7816 

CO 1 o 


vCO 1 ^O 


001006 

WW 1 wo 










7817 

CO I f 


vCO 1 w 


004737 

WW^ ' J 1 


012416 






JSR 


7818 

CO 1 o 


076144 

WCO 1 


004737 

wwf r J» 


013534 






JSR 

w wn 


7819 

CO i 7 


0761 SO 

vCO 1 


103001 

1 W^WW 1 








acc 


7870 

COC w 


0PA1 5P 

vCO 1 JC 










ERROR 


7871 

COC 1 


026152 

VCO 1 JC 


104460 








TRAP 


cocc 


0261 54 

VCO 1 J'^ 








15$: 




coc^ 


0261 54 

WCO 1 ^f 


004737 


012464 

W 1 C^W~ 






JSR 


7824 


026160 

WCO 1 wW 


004737 

WW^ > I 


014254 






JSR 


PAPS 

COC ' 


026164 

wCO 1 U*t 


103001 

1 W^ W 1 








BCC 


coc^ 


076166 

wCO 1 OO 










ERROR 


7827 

COC f 


C26166 

wCw 1 W 


104460 

1 Vf ~ w 








TRAP 


PAPA 
coco 


VCO 1 f V 








20$- 

CW<P • 




PAP9 

COC 7 


0261 70 

vCO 1 ' w 


004737 

WVf 9^9 


014066 

W ■ "WWW 






JSR 


78^0 


0261 74 

wCO 1 r *t 


103001 








sec 


7831 

CO^ 1 


0261 76 

wCO 1 r O 










ERROR 


pa5P 

CO JC 


0261 76 

wCO 1 f O 


104460 








TRAP 


7833 

co^^ 


076200 

wCOC W 








30$' 




7834 


026200 

VCOC WV 


012737 


1 77400 


002214 




NOV 


7835 
co^^ 


026206 

VCOC VO 


004737 


013140 

W 1 ^ 1 ~ w 






JSR 


283t> 

C w^^/ 


026212 


004737 


017546 






JSR 


7837 

CO^ ' 


026216 


103001 








BCC 

W^ ^ 


7838 

co^o 


026220 

vCOCC V 










ERROR 

k f^»»W»» 


CO J 7 


026220 

wCOCC w 


1 04460 








TRAP 


c o^ V 


026222 

wCOCCC 








40$- 

f W* • 




7841 

CO^ 1 


026222 

wCOCCC 


047777 

V~C III 


000001 

WWWWW 1 


154014 






78^7 

C Of c 


026230 

wC OC 


VIC* • ' 


000402 

wwv~ vc 


154004 




MOV 

nvw 


78^3 

CO*f ^ 


026236 

wCOC ^O 


0S2777 

w^C III 


030000 


153776 

1 1 W 




BIS 


COf ~ 


026244 

VC WC~~ 


005077 

VW^Wf 1 


153776 

■ J^l 9 V 








2845 


026250 


0}2777 

W I C ' ' ' 


160000 

1 WWWWW 


153772 




NOV 


2846 

COf o 


026256 


005277 


1 53760 

t J Jl WW 






INC 


2847 

C Of » 


076262 

VCOC WC 


013737 

W 1 J I ^ 1 


002222 

WWC 


002220 

VVbb V 




MOV 

nw » 


2848 


026270 


004737 


013362 






JSR 


2849 


026274 


004737 


013254 






JSR 


2850 


026300 


012737 


132602 


002174 




MOV 


2851 


026306 


012737 


006101 


002176 




MOV 


2852 


026314 


012737 


000002 


002202 




MOV 



E 7 

FROL LOGIC WITH MINIMUM TAPE MOTION 



S£Q 82 



70$ 

R2 

R2 
80$ 

^ 1> 

ENUM,MSRLPFL,ERR5 

C$ERSOFT 

37 

MSRLPFL 
ERRS 
PC.CPUR 



;0K 

.■INDICATE ERROR 

:ANY ERRORS? 
;N0 

.•INCREMENT ERROR NUMBER 
; REPORT ERROR 



;TR79 POWER CLEAR 



;TEST NXM ADDRESS ERROR USING TRCR BITS 12-13 
PC.TESTN .-MAKE SURE TRANSPORT ON LINE 

10$ : ON LINE. NO ERROR 

.REPORT ERROR 



C$ERROR 

#|^T5,aTRSR 

PC.RWIND 
PC-CHEKI 
15i 

C$ERROR 

PC.WTIDB 
PCCHEKO 
20$ 

C$ERROR 

PC.TESTN 
30i 

C$ERROR 

#-400.U$EB 
PC.ERS 
PC.CMEKFX 
40i 

C$ERftOR 



«8IT0,aTRSR 

/ruRirLatPCR 

«BITl2!BIT13,aTRCR 
aTRUC 

#160000. 2TRBA 
aTRCR 
DLXRW.DLX 
PC.WWAIT 
PC.CPYTRR 
*132602,ETRCR 
/r6101,ETRSR 
#2«ETRBA 



If AT LOAD POINT 
SKIP REWIND 
REWIND 

CHECK FOR ERROR 
OK 

REPORT ERROR 



.'WRITE IDS 

;WRITE ID6 



CHECK TR79 REGISTERS 
NO ERRORS 
REPORT ERROR 



.'MAKE SURE TRANSPORT ON LINE 
: ON LINE. NO ERROR 
.•REPORT ERROR 



; ERASE 



SET ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

REPORT ERROR 

.-WRITE TO NXM ADDRESS 

CLEAR INHIBIT BIT 
SET COMMAND 

SET THE EXTENDED ADDRESS BITS 
CLEAR THE WORD COUNT 
SET UP AN I/O PAGE REFERENCE 
SET 60 BIT 

SPECIFY DELAY MULTIPLIER 
WAIT 

COPY TR79 REGISTERS ft CLEAR EXPECTED RESULTS 
FXPECTED 
EXPECTED 
EXPECTED 



C2TRAC.P11 



30-DEC-81 11:08 



2853 


026322 


012737 


000001 


002200 


2854 


026330 


023737 


002174 


002164 


2855 


026336 


001401 






2856 


026340 


005202 






2857 


026342 








2E58 


026342 


023737 


002176 


002166 


2859 


026350 


001401 






2860 


026^-52 


005202 






2861 


026354 








2862 


026354 


033737 


002202 


002172 


2863 


026362 


001001 






286A 


026364 


005202 






2865 


026366 








2366 


026366 


023737 


002200 


002170 


2867 


026374 


001401 






2868 


026376 


005202 






2869 


026400 








2870 


026400 


005702 






2871 


026402 


001404 






2872 




000046 






2873 


026404 








287A 


026404 


104457 






2875 


026406 


000046 






2876 


02641 C 


023115 






2877 


026412 


020102 






2878 


026414 








2879 


0264U 


004737 


013324 




2880 










2881 


026420 


005001 






288? 


026422 


010177 


153622 




2883 


026426 


020177 


153616 




2884 


026432 


001410 






2885 


026434 


004737 


013254 




2886 


026440 


010137 


002202 




2887 




000047 






2888 


026444 








2889 


026444 


104457 






2890 


026446 


000047 






2891 


026450 


021630 






2892 


026452 


020136 






2893 


026454 








2894 


026454 


005201 






2895 


026456 


001361 






2896 










2897 


026460 








2898 


026460 


005001 






2899 


026462 


010177 


153560 




2900 


026466 


020177 


153554 




2901 


026472 


001410 






2902 


026474 


004737 


013254 




2903 


026500 


010137 


002200 




2904 




000050 






2905 


026504 








2906 


026504 


104457 






2907 


026506 


000050 






2908 


026510 


021551 







^EST2 

50$: 

60S: 

70$: 

80$: 
ENUM 

90$: 



T2AU: 
10$: 



ENUn 

20$: 

T28A: 
10$: 

ENU« 



F 7 



5lO 85 





CONTROL LOGIC WITH MINIMUM 


TAPE MOTION 


MOV 


/VI ,ETRUC 


.•EXPECTED 


CMP 


ETRCR ATRCR 


■TEST COMMAND REGISTER 




50$ 


-OK 


INC 


R2 


•INDICATE ERROR 


CMP 


ETRSR.ATRSR 


•TEST THE STATUS REGISTER 


BEQ 


60$ 


•OK 


INC 


R2 


[•INDICATE ERROR 


BIT 


ETRBA.ATRBA 


:TEST BUFFER ADDRESS 


BNE 


70$ 


•OK 


INC 


R2 


.•INDICATE ERROR 


CMP 


ETRUC.ATRUC 


:TEST THE WORD COUNT 

0 ff k ff ff ' I k W ^^ff V «r ^ ^F^^ V ■ 


BEQ 


80$ 


;0K 


INC 


R2 


.INDICATE ERROR 


TST 


R2 


.■ANY ERRORS? 


9EQ 


90$ 


;N0 



•D<ENUM ♦ 1> 
ERRSOFT ENUM,MNXMFL,ERR5 
TRAP 
.WORD 
.WORD 
.WORD 



JSR 

CLR 
NOV 
CMP 
BEQ 
JSR 
MOV 

•0<ENUH ♦ 



C$ERSOFT 
38 

MNXMFL 
ERRS 

PCCPUR 

R1 

RUdTRBA 
Rl.aTRBA 
20i 

PCCPYTRR 
RI.ETRBA 
1> 



INCREMENT ERROR NUMBER 
REPORT ERROR 



ERRSOFT ENUN.EM6,ERR11 



TRAP 
.WORD 
.WORD 
.WORD 

INC 
BNE 



C$ERSOFT 
39 
EM6 
ERR11 

Rl 
10$ 



.•RESET TR79 

:TEST THE BUS ADDRESS BITS BY USING A COUNT PATTERN 
CLEA/i COUNT 
SET BUS ADDRESS 
TEST BUS ADOR£SS 
OK 

COPY TR79 REGISTERS, CLEAR EXPECTED RESULTS 
EXPECTED 

INCREMENT ERROR NUMBER 
REPORT ERROR 



;TEST THE BITS 

CLR Rl 
MOV Rl,aTRWC 
CMP Rl.alRWC 
BEQ 201 
JSR PC^CPYTRR 
MOV RnETRUC 
•D<ENUM ♦ 1> 
ERRSOFT ENUM.EN7,ERR12 
TRAP CSERSOFT 
.WORD 40 
.WORD EM7 



.'INCREMENT COUNT 
.•CONTINUE 

IN THE WORD COUNT USING A COUNT PATTEr^N 
CLEAR COUNT 
SET WORD COUNT 
TEST WORD COUNT 
OK 

COPY REGISTERS. CLEAR EXPECTED RESULT 
EXPECTED 

INCREMENT ERROR NUMBER 
REPORT ERROR 



CZTRAC.P11 



2909 

2911 
2912 
2913 
29U 
2915 
2916 
2917 



026512 
0265U 
0265U 
026516 
026520 
026520 
026520 



30-DEC-81 11:08 
020160 



G 7 

TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 
.WORD ERR 12 



SEO 8A 



005201 
001361 



104A01 



20$: 

LI 0022: 
.SBTTL 



INC 
BNE 

ENDTST 

TRAP 

TEST3 



R1 
10S 



.•INCREMENT COUNT 
.■CONTINUE 



CSETST 

CHECK IDB AND EOF OPERATIONS. COUNT AND PARITY ERRORS 



CZTRAC.P11 3C-DEC-81 11:08 



2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

293A 

2935 

2936 

2937 

2938 

2939 

2940 

29A1 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 



H 7 

TEST3 CHECK IDS AND EOF OPERATIONS. COUNT AND PARITY ERRORS 



////////////////////////////////////////////////////////////////////////// 
TEST3 CHECKS IDB AND EOF OPERATIONS 

CHECKS COUNT AND PARITr ERROR DETECTION 



SEO 85 



TEST3 INCLUDES: 



RING 



INSURE WRITE ENABLE 
REWIND THE TAPE 
WRITE ID BLOCK 
ILLEGAL ID BLOCK TEST 
SPACE REVERSE OVER ID BLOCK 
READ ID BLOCK 
WRITE EOF HARKS 
SPACE REVERSE OVER EOF MARKS 
READ EOF HARKS 
TIME OUT TEST 
READ WITH COUNT LONG 
READ WITH COUNT SHORT 
SPACE REVERSE WITH COUNT SHORT 
SPACE REVERSE WITH COUNT LONG 
WRITE EVEN PARITY 
SPACE REVERSE OVER EVEN PARITY 
READ EVEN PARITY 



TEST NAME IN CZTRAO 

TESTC 
TESTI 
TESTO 
TESTH 
TESTAV 
TESTAW 
RUNL 
RUNU 
RUNV 
TESTW 
TESTAC 
TESTAD 
TESTAE 
TESTAF 
TESTAX 
TESTAY 
TESTAZ 



////////////////////////////////////////////////////////////////////// 



026522 






026522 






026522 


01,2777 


000100 


026530 


00^,737 


013324 


026534 






026534 


032777 


000004 


026542 


001404 
000051 




026544 






026544 


104457 




026546 


000051 




026550 


021002 




026552 


017744 




026554 






026554 


004737 


014066 


026560 


103001 




026562 






026562 


104460 




026564 






026564 






026564 


032777 


000040 


026572 


001010 




026574 


0OA737 


013324 


026600 


00(,737 


012416 


026604 


004737 


013534 


026610 


103001 




026612 







153512 



153502 



153452 



T3:: 



T3C: 



ENUM = 



10$: 



20$: 
T30: 



BGNTST 

BIC 
JSR 



«8ir6,aTRCR 
PC.CPWR 



BIT «FPTS,aTRSR 

B£Q 10$ 

*D<ENlfl ♦ 1> 
ERRSOFT ENUM,EM4A,ERR2 

TRAP C$ERSOFT 

.WORD 41 

.WORD EM4A 

.WORD ERR2 



JSR 
BCC 
ERROR 
TRAP 



BIT 
BNE 

JSR 
JSR 
JSR 
BCC 
ERROR 



PC.TESTN 
20i 

C$ERROR 



.CLEAR TR79 INTERRUPT ENABLE BIT 
.RESET TR79 
.-CHECK FOR WRITE ENABLE RING 

;IF yRITE ENABLE RJN6 IS PRESENT 
: THEN CONTINUE 
.-INCREMENT ERROR NUMBER 
.-REPORT ERROR. GET RING INSTALLED 



;RING IS PRESENT 

;MAKE SURE TRANSPORT ON LINE AND READ" 
;N0 ERROR 
; REPORT ERROR 



«LDPTS,atRSR 
30$ 

PC.CPWR 
PC.RWIND 
PC.CHEKI 
30i 



TEST WRITE IDB AT LOAD POINT 



IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
RESET TR79 
REWIND 

CHECK REGISTERS 

OK. NO ERRORS. TAPE AT ' OAD POINT 
REPORT ERROR 





P1 1 


tG-DFr-81 


1 1 >08 

1 1 • vw 




?97(t 


02661? 


104460 
















C T r O 


076614 

VC WW I *t 


004737 


014066 

V 1 ^ vww 




?977 


026620 


103001 

1 V JVV 1 






?978 


026622 

VC wwc c 








?979 


026622 

VC W%>C C 


1 04460 

1 v~~ wv 






2980 


026624 

VC WWC ~ 








2981 


026624 


004737 


012464 




2982 


026630 


004737 


014254 




2983 


026634 


103001 






?98A 


026636 

VC \J\J-mf\J 








2985 


026636 

VC WW— 'V 


104460 






2986 


026640 

VC W~ V 








2987 










2988 


026640 

VC w 


012737 


1 77400 


002214 


2989 


026646 

VC \^w^ w 


004737 


013140 




2990 


026652 


004737 


017546 




2991 


026656 


103001 






2992 


026660 








2993 


026660 


104460 






2994 


026662 








2995 


026662 








2996 


026662 


004737 


014066 




2997 


026666 


103001 






2998 


026670 








2999 


026670 


104460 






3000 


026672 








3001 


026672 


012737 


177700 


002214 


3002 


026700 


004737 


012642 




3003 


026704 


004737 


017156 




300A 


026710 


103001 






3005 


026712 








3006 


026712 


104460 






3007 


026714 








3008 


026714 


004737 


014066 




3009 


026720 

VC W * C V 


103001 






3010 


026722 








3011 


026722 


104460 






3012 


026724 








3013 


C267?4 


004737 


012464 




3014 


026730 


004737 


013254 




3015 


026734 


012737 


142632 


002174 


3016 


026742 


012737 


002000 


002176 


3017 


026750 


023737 


0021 74 


002164 


3018 


026756 


001401 






3019 


026760 


005202 






3020 


026762 








3021 


026762 


023737 


002176 


002166 


3022 


026770 


001401 






3023 


026772 


005202 






3024 


026774 








3025 


026774 


005702 






3026 


026776 


001404 






3027 




000052 






3028 


027000 








3029 


027000 


104457 







TEST3 
30S: 

10$: 
20$: 
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CHECK IDS AND EOF OPERATIONS, COUNT AND PARITY ERRORS 



SEQ 86 



40$: 
T3H: 



10$: 



30$: 



40$: 



50$: 



60$: 



TRAP C$ERROR 



JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 



MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 



JSR 
BCC 
ERROR 
TRAP 

nov 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

JSR 
JSR 
HOV 

nov 

CHP 
BEO 
INC 

C«P 
BEO 
INC 



PC.TESTN 
lOi 

C$ERROR 

PC.WTIDB 
PC.CHfPCO 
20i 

C$ERROR 



#-400.USEB 
PC.ERS 
PC.CHEKFX 
40$ 



;AT LOAD POINT 

;MAKE SURE TRANSPORT ON LINE AND READV 

;N0 ERROR 

; REPORT ERROR 

.-WRITE IDS 

; WRITE IDB 

; CHECK REGISTERS 

;0K 

; REPORT ERROR 



.ERASE 



C$ERROR 



.-SPECIFY ERASE COUNT 
.ERASE 

.-CHECK REGISTERS 
:0K 

.•REPORT ERROR 



PC.TESTN 

loi 

C$ERROR 

#-100.USEB 
PC.WRT 
PC-CHEKCX 
30i 

C$ERR0R 

PC.TESTN 
40S 

CSERROR 

PC.WTIDB 

PC.CPYTRR 

#142632. ETRCR 

#2000,£TRSR 

ETRCR.ATRCR 

50$ 

R2 

ETRSR.ATRSR 

60$ 

R2 



.TEST WRITE IDB BEYOND LOAD POINT 



.WRITE 



HAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



SPECIFY WORD COUNT FOR WRITE 
WRITE 

CHECK TR79 REGISTERS 
OK 

REPORT ERROR 



.-nAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.-REPORT ERROR 

.WRITE IDB BEYOND LOAD POINT 
rWRITE IDB 
COPY TR79 REGISTERS 
;EXPECTED 
iEXPECTED 

;CHECK CONHAND REGISTER 
;0K 

INDICATE ERROR 

CHECK STATUS REGISTER 
OK 

INDICATE ERROR 



TST 
BEO 

ENUH = •D<ENUH ♦ 1> 

ERRSOFT ENU«,NWIPLFL.ERR4 
TRAP C$ERSOFT 



ANY ERRORS? 
NO 

INCREMENT ERROR COUNT 
REPORT ERROR 



CZTRAC.P11 
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TEST3 CHECK IDB AND EOF OPERATIONS, COUNT AND PARITY ERRORS 



SEO 87 



3030 
3031 
3032 
3033 
305A 
5035 
3036 
3037 
3038 
3039 
30A0 
30A1 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 



027002 
027004 
027006 
027010 
027014 
027014 
027020 
027022 
027022 
027024 
027024 
027032 
027034 
027040 
027044 
027046 
027046 
027050 
027050 
027054 
027056 
027056 
027060 
027060 
027064 
027070 
027072 
027072 
027074 
027074 
027102 
027106 
027114 
027120 
027124 
027126 
027126 
027130 
027130 
027130 
027134 
027136 
027136 
027140 
027140 
027146 
027150 
027154 
027160 
027162 
027162 
027164 
027164 
027170 
027172 
027m 



000052 
022245 
020064 
004737 

004737 
103001 

104460 

032777 
001006 
004737 
004737 
103001 

104460 

004737 
103001 

104460 

004737 
004737 
103001 

104460 

012737 
004737 
013737 
004737 
004737 
103001 

104460 



013324 
014066 

000040 153212 

012416 
013534 

014066 



70$: 
T3AV: 



10$: 



012464 
014254 



}77777 002214 
013024 

002222 002220 

013362 

016122 



20$: 



30$: 



40$: 



004737 014066 
103001 

104460 

032777 000040 153076 
001006 

004737 012416 
004737 013534 
103001 

104460 

004737 014066 
103001 

104460 



50$: 
T3AU: 



10$: 



20$: 



.WORD 
.WORD 
.WORD 
JSR 

JSR 
BCC 
ERROR 
TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 

MOV 

JSR 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 



JSR 
BCC 
ERROR 
TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 



42 

MUIPLFL 
ERR4 
PC.CPWR 

pc.testn' 

lOi 

C$ERR0R 



«LDPTS,aTRSR 
20$ 

PCRUIND 
PCCHEKI 
20$ 

C$ERROR 

PC.TESTN 
30i 

C$ERROR 

PCWTIDB 
PC-CHEKO 
40i 

C$ERROR 

#-1.USEB 

PC.SPR 

DLXRU.OLX 

PCUWAIT 

PC-CHEKAV 

soi 



:TR79 POWER CLEAR 
;TEST SPACE REVERSE OVER IDB 



C$ERROR 



HAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



;0N LINE AND READY 

;IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
; REWIND 

;CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 

;AT LOAD POINT 

:MAKE SURE TRANSPORT ON LINE AND READY 
:N0 ERROR 
.REPORT ERROR 

.-WRITE IDB 

.-WRITE IDB 
.-CHECK REGISTERS 
;0K 

.REPORT ERROR 

.-SPACE REVERSE OVER IDB 

; SPECIFY WORD COUNT 
; SPACE REVERSE 
;SPECIFY DELAU MULTIPLIER 
'WAIT 

■CHECK REGISTERS 
;0K 

: REPORT ERROR 



PC.TESTN 

loi 

C$ERROR 

fLDPTS.iTRSR 
20$ 

PC.RWIND 
PC-CHEKl 
20i 

C$ERROR 

PC.TESTN 
30i 

C$ERROR 



.TEST READ IDB 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



;0N LINE AND READY 

;IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
;REWIND 

;CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 

;AT LOAD POINT 

.MAKE SUP5 TRANSPORT ON LINE AND READY 
:N0 ERROR 
.•REPORT ERROR 



CZTRAC 




50-DEC-81 


11 :08 




TEST3 


CHECK 


3086 


027174 








30S: 




3087 


027174 


005037 


006322 






CLR 


3088 


027200 


012737 


4 77 77 7 

}77777 


002214 




MOV 


3089 


027206 


004737 


012756 






JSR 


3090 


027212 


004737 


016262 






JSR 


3091 


027216 


103001 








BCC 


3092 


027220 










ERROR 


3093 


027220 


1 04460 








TRAP 


3094 


^21222 








40$: 




3095 


027222 








V 7 1 

T3L: 




3096 


027222 


004737 


01332^ 






JSR 


3097 


027226 


004737 


014066 






JSR 


3098 


A '^7"*7 ^ 

027232 


4 A7AA4 

103001 








BCC 


3099 


027234 










ERROR 


3100 


A'^ ^^7 / 

027234 


104460 








TRAP 


3101 


027236 








4 A* 

10S: 




3102 


027236 


A7 7^ 7 

032777 


A A A A 4 A 

000040 


4 V 7AAA 

153000 




BIT 


3103 


027244 


AA 4 AA^ 

001006 








BNE 


31 OA 


C27246 


AA/ 777 

004737 


A 4 y 4 / 

012416 






JSR 


3105 


027252 


A A / 77 7 

004737 


A 4 7 P 7 / 

013534 






JSR 


3106 


027256 


4 A V A A 4 

103001 








BCC 


31 07 


027260 










ERROR 


7 4 AO 

3108 


027260 


4 A/ / ^ A 

104460 








TRAP 


3109 


027262 








tA* 

20S: 




T4 4 A 

31 10 


027262 


004737 


A 1 J A/ / 

014066 






JSR 


94 4 4 

3111 


027266 


4 A7 AA4 

103001 








A ^ ^ 

BCC 


T4 4 *> 

3112 


027270 










ERROR 


74 4 7 

3113 


027270 


4 A^ ^ ^ A 

104460 








7 A A A 

TRAP 


74 4 ^ 


A*^7**7*l 

027272 








7 A» 

30S: 




74 4 f 

31 15 


027272 


004737 


A4 ^ / ^ / 

01 2464 






JSR 


74 4 £. 

3116 


027276 


AA^ 77 7 

004737 


A4 / 

014254 






JSR 


74 4 9 

3117 


A^77A^ 

027302 


4 A7AA4 

103001 








BCC 


74 4 A 

3118 


A^77A^ 

027304 










ERROR 


74 4 A 

3119 


027304 


1044t0 








TRAP 


74 ^A 

3120 


A*%77A^ 

027306 








J A» 

4 OS: 




7 4 *)4 

3121 


02^306 


012757 


< AA 

177400 


002214 




MAK 

WOv 


74 

3122 


A*)774 / 

027314 


AA/ 777 

004737 


A4 74 / A 

013140 






JSR 


74 n7 

3123 


027320 


AA/ 777 

004737 


A4 7C / ^ 

017546 






JSR 


74 0# 

3124 


t)27324 


4 A7AA4 

103001 








BCC 


74 **C 

3125 


027326 










ERROR 


74 

3126 


A^77^^ 

027326 


4 A/ / ^ A 

104460 








TRAP 


3127 


(;27330 








C A* 

50S: 




74 1 A 

3128 


027330 


AA/ 777 

004737 


A4 7A7*% 

013072 






JSR 


74 

3129 


027334 


AA/ 777 

004737 


A4 77C^ 

013756 






JSR 


74 7A 

3130 


027340 


4 A7AA4 

103001 








BCC 


74 74 

3131 


027342 










ERROR 


74 70 

31 32 


Ao^7/ O 

027342 


4 A/ / Z A 

: 04460 








TRAP 


74 7T 

3133 


027344 








60>. 




74 7/ 

5134 


A^7V/ / 

027344 








T 7l 1 

T3U: 




74 7f 

3135 


027344 


AA/ 777 

004737 


A 4 / A^ ^ 

014066 






JSR 


74 

3136 


027350 


4 AVAA4 

103001 








BCC 


74 77 

3137 


027352 










ERROR 














TOAO 


3139 


027354 








10S: 




3140 


027354 


005037 


002214 






CLR 


3141 


027360 


004737 


013024 






JSR 



K 7 

IDB AND EOF OPERATIONS, COUNT AND PARITY ERRORS 
;READ IDS 



SEQ 88 



INPUT 
#-LUSEB 
PC,RD 
PC-CHEKAU 
40$ 



CSERROR 



CLEAR INPUT WORD 
SPECIFY COUNT FOR READ 
READ 

CHECK REGISTERS 
OK 

REPC'.T ERROR 



PC.CPUR 
PCTESTN 
10S 

CSERROR 

*LDPTS.aTRSR 
20$ 

PCRUIND 
PCfCHEKI 
20i 

CSERROR 

PC-TESTN 
30i 

CSERROR 

PCWTIDB 
PC.CHEKO 
40S 

CSERROR 

#-400, USES 

PCERS 

PC.CHEKFX 

soi 

CSERROR 

PCWTEOF 
PC-CHEKL 
60i 



;TEST WRITE EOF (TAPE HARK) 



RESET TR79 
MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



:0N L'NE AND READY 

IF AT LOAD POINT 

THEN SKIP PRELiniNARY REWIND 
;REWIND 

;CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; RE PORT ERROR 

;AT LOAD POINT 

;nAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
; REPORT ERROR 

.-WRITE IDS 

;WR1TE IDB 
CHECK REGISTERS 
OK 

REPORT ERROR 



.'ERASE 



CSERROR 



SPECIFY ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

(REPORT ERROR 



: WRITE EOf(TAPE NARK) 
;URiTE EOF 
; CHECK REGISTERS 
;0K 

; REPORT ERROR 



PC.TESTN 
10$ 

CSERROR 

USES 
PC.SPR 



.TEST SPACE REVERSE OVER EOF 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



.-SPECIFY COUNT 
.•SPACE REVERSE 



CZTBAC.Pn 
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TE3T3 CHECK IDB AND EOF OPERATIONS. COUNT AND PARITY ERRORS 



SEQ 89 



3K2 


027364 


004737 


014506 


3U3 


027370 


103001 




3U4 


027372 






3K5 


027372 


104460 




3U6 


027374 






3U7 


027374 






3U8 


027374 


004737 


014066 


3U9 


027400 


103001 




3150 


027402 






3151 


027402 


104460 




3152 


027404 






3153 


027404 


005037 


002214 


31 5A 


027410 


004737 


012756 


3155 


027414 


004737 


014636 


3156 


C27420 


103001 




3157 


027422 






3158 


027422 


104460 




3159 


027424 






3160 


027424 






3161 


027424 


004737 


013324 


3162 


027430 


004737 


014066 


3163 


027434 


103001 




3164 


027436 






3165 


027436 


104460 




3166 


027440 






3167 


027440 


052777 


AAAAJ A 

000040 


3168 


027446 


A A 4 A A^ 

001006 




3169 


027450 


AA4 999 

004737 


012416 


3170 


027454 


004737 


A4 9r 9 4 

013534 


3171 


027460 


103001 




3172 


027462 






94 99 

3173 


A'%9 M M *\ 

027462 


4 A^ / y A 

104460 




3174 


027464 






3175 


027464 


004737 


014066 


3176 


027470 


103001 




31 77 


027 W2 






3178 


A*^9/ 9^ 

027472 


4 A4 / ^ A 

104460 




3179 


027474 






3180 


A^9/ 9/ 

027474 


AA^ 99 9 

004737 


A 4 ^ « £ t 

012464 


3181 


027500 


A A J 99 9 

004737 


014254 


3182 


027504 


103001 




3183 


027506 






94 A ^ 

3184 


027506 


104460 




94 

3185 


A'^^P 4 A 

027510 






3186 


A'%9f 4 A 

027510 


A4 ^999 

012737 


4 99/ AA 

1 77400 


94 A9 

3187 


027516 


AAy 999 

004737 


A 4 9 4 / A 

013140 


9 4 A A 

3188 


027522 


AA/ 99 9 

004737 


A 4 9f t £ 

017546 


9 4 A^ 

3189 


027526 


4 A9 AA4 

103001 




9 4 

3190 


A'\9P 9A 

027530 






9 4 A4 

3191 


A^9r 9A 

027530 


4 A/ / ^ A 

104460 












3193 


027532 


013702 


002232 


3194 


027536 


005001 




3195 


0275^0 


042777 


000001 


3T96 


C27546 


005077 


152474 


319/ 


027552 


012777 


002262 



20$: 
T3V: 



10$: 



20$: 
T3W: 



10$: 



20$: 



30$. 



40$: 



50$: 



JSR 
BCC 
ERROR 
TRAP 



JSR 
8CC 
ERROR 
TRAP 

CLR 

JSR 

JSR 

BCC 

ERROR 

TRAP 



JSR 

JSR 

BCC 

ERROR 

TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 

HOV 
CLR 
BIC 
CLR 
NOV 



PC-CHEKU 
20i 

C$ERROR 



PC.TESTN 
10$ 

C$ERROR 

USEB 
PC,RD 
PC.CHEKV 
20i 

C$ERROR 



TEST READ EOF 



CHECK REGISTERS 
OK 

REPORT ERROR 



HAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



SPECIFY COUNT FOR READ 
READ 

CHECK REGISTERS 
OK 

REPORT ERROR 



PC.CPWR 
PCTESTN 
10S 

CSERROR 

#LDPTS.aTRSR 
20$ 

PCRWINO 
PC.CHEKI 
20$ 

C$ERROR 

PC.TESTN 
30i 

C$ERR0R 

PC.WTIDB 
PC.CKEKO 
40i 

C$ERROR 

#-400, USEB 
PC.ERS 
PC.CMEKFX 
50i 

C$ERR0R 

DLXLNG,R2 
R1 

«8JT0,aTRSR 
aTRUC 

#OUTPUT,aTRBA 



T£ST TIMEOUT WHILE WRITING 
iRESET TR79 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



:0N LINE AND READY 

;IF AT LOAD POINT 

; THEN SKIP PRELIMINARY REWIND 

.'REWIND 

.•CHECK REGISTERS 

:0K.N0 ERRORS. TAPE AT LOAD POINT 
.•REPORT ERROR 

;AT LOAD POINT 

.-MAKE SURF TRANSPORT ON LINE AND READY 
;N0 ERROR 
.REPORT ERROR 

:WRJTE IDB 

; WRITE IDB 
CHECK REGISTERS 
OK 

REPORT ERROR 



.ERASE 



SPECIFY ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

REPORT ERROR 



; FORCE WRITE FOR LONGER THAN 1.5 SEC 
;SPECIFY DELAY MULTIPLIER 
;SPECIFY DELAY CONSTANT 
;CLEAR TR79 INHIBIT BIT 
; SPECIFY MAXIMUM WORD COUNT 
; SPECIFY BUS ADDRESS 
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TEST3 CHECK 108 AND EOF OPERATIONS, COUNT AND PARITY Ef<RORS 



SEQ 90 



3198 

3199 

3200 

3201 

3202 

3203 

320« 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 



027560 
027566 
027574 
027574 
027600 
027606 
027610 
027612 
027614 
027616 
027622 
027630 
027636 
027644 
027652 
027654 
027656 
027656 
027664 
027672 
027674 
027676 
027676 
027704 
027706 
027710 
027710 
027714 
027716 
027720 
027720 
027722 

02772U 
02772U 
027726 
027730 
027732 
027734 
027734 



027740 
0277(,0 
027744 
027750 
027752 
027752 
02775^, 
027754 
027762 
027764 
027770 
027771, 
027776 
027776 



0M777 
052777 

005077 
012777 
005201 
001371 
005302 
001367 
004737 
012737 
012737 
012737 
023737 
001401 
005202 

0U2717 
023737 
001401 
005202 

023737 
001401 
00520? 

005737 
001401 
005202 

005702 
001404 
000053 

104457 
000053 
022751 
020102 

004737 



004737 
004737 
103001 

104460 

012777 
001006 
004737 
004737 
103001 

104460 



000402 


152454 




MOV 


«URITE,aTRCR 


.•SPECIFY WRITE OPERATION 


000001 


152446 


60$: 


BIS 


«8IT0.aTRCR 


;SET TR79 GO BIT 


152446 






CLR 


aTRUC 


;RESET C0UN1 


002262 


152442 




MOV 
INC 
BNL 
DEC 
BNE 


#OUTPUT,aTRBA 

R1 

60$ 

R2 

60$ 


;RESET BUS ADDRESS 
; COUNT A TICK 
; KEEP TICKING 
.•COUNT DOWN MULTIPLIER 
.•KEEP TICKING 


013254 






JSR 


PC.CPVTOR 

«102602,ETRCR 

«2401,ETRSR 


;COPy TR79 REGISTERS 


102602 


002174 




MOV 


.•EXPECTED 


002401 


002176 




MOV 


.•EXPECTED 


002262 


002202 




MOV 


«0UTPUT,ETR6A 


.•EXPECTED 


002174 


002164 


70$: 


CMP 
BEQ 
INC 


ETRCR«ATRCR 

70$ 

R2 


.CHECK COMMAND REGISTEN 
;0K 

.-INDICATE ERROR 


1 70000 


002166 




BIC 


*1 70000, ATRSR 


.•CLEAR UNWANTED BITS 


002176 


002166 


80$: 


CMP 
BEQ 
INC 


ETRSR,ATNSR 
80$ 

R2 


.-CHECK STATUS 
;0K 

.-INDICATE ERROR 


002202 


002172 


90$: 


CMP 
BEQ 
INC 


ETH8A,ATRFA 

90$ 

R2 


.-CHECK BUS ADDRESS 
;0K 

.-INDICATE ERROR 


002170 




100$: 


TST 
BEQ 
INC 

TST 


ATRUC 

100$ 

R2 

R? 


.CHECK COIMT 
;0K 

.-INDICATE ERROR 
.ANY ERRORS? 








BEQ 

•D<ENUH 


110$ 


.-NO 






ENun = 


♦ 1> 


.-INCREMENT ERROR COUNT 








ERRSOFT ENUn,NUTOFL,£RRS 


.-REPORT ERROR 








TRAP 


C$ERSOFT 










.WORD 


43 










.WORD 


NWTOFL 










.WORD 


ERRS 








110$: 








013324 






JSR 


PCCPWR 


.-RESET TR79 



012416 
013534 



013324 
014066 



000040 152262 



T3AC: 



10$: 



JSR 

JSR 

BCC 

ERROR 

TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 



PC.CPWR 

PC.TESTN 

10$ 

C$ERROR 



;TEST READ COUNT ERROR. COUNT TOO LARGE 
RESET TR79 

MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



#LDPTS.aTRSR 
20$ 

PC.RWIND 
PC.CHEKI 
20i 

C$ERROR 



:0N LINE AND READY 

IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
;REWIND 

;CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 



CZTRAC.Pll 
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3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 



030000 
0300C0 
030004 
030006 
030006 
030010 
030010 
030014 
030020 
030022 
030022 
030024 
030024 
030030 
030032 
030032 
030034 
030034 
030042 
030046 
030052 
030054 
030054 
030056 
030056 
030062 
030064 
030064 
030066 
030066 
030074 
030100 
030104 
030106 
030106 
030110 
030110 
030114 
030116 
030116 
030120 
030120 
030124 
030130 
030132 
030132 
030134 
030134 
030140 
030142 
030142 
030144 
030144 
030152 
030156 
030162 



004737 
103001 

104460 

004737 
004737 
103001 

104460 

004737 
103001 

104460 

012737 
004737 
004737 
103001 

104460 

004737 
103001 

104460 

012737 
004737 
004737 
103001 

104460 

004737 
103001 

104460 

004737 
004737 
103001 

104460 

004737 
103001 

104460 

012737 
004737 
004737 
103001 



014066 



012464 
014254 



014066 



177400 002214 

013140 

017546 



014066 



177700 002214 

01^642 

017156 



014066 



013024 
017416 



014066 



177701 002214 

012756 

014776 



TEST3 
20S: 

30S: 

40$: 
45S: 



CHECK IDB AND EOF OPER/ 



50$: 

55$: 
60$: 

70$: 
75$: 

80$: 
85$: 



JSR 

ecc 

ERROR 
TRAP 

JSR 
JSR 

see 

ERROR 
TRAP 

JSR 
BCC 
ERROR 
TRAP 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

HOV 
JSR 
JSR 
BCC 



PC.TESTN 
30i 

C$ERROR 

PC.WTIDB 
PC-CHEKO 
40i 

C$ERROR 

PC.TESTN 
45$ 

C$ERROR 

«-400,USEB 
PC.ERS 
PCCHEKFX 
50$ 

C$ERROR 

PCTESTN 
55$ 

C$ERROR 

«-100,USEB 
PC.WRT 
PC-CHEKCX 
70i 

C$ERR0R 

PC.TESTN 
75i 

C$ERROR 

PC.SPR 

PCCHEKEX 

80$ 

C$ERROR 

PC.TESTN 
85i 

C$ERROR 

*-77. USEB 
PC.RD 
PC.CHEKAC 
90$ 



IONS, COUNT AND PARITY ERRORS 

;AT LOAD POINT 

.-MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.•REPORT ERROR 

.-WRITE IDB 

; WRITE IDB 
.•CHECK REGISTERS 
;0K 

.•REPORT ERROR 

.-ERASE 

.-MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.-REPORT ERROR 



.SPECIFY ERASE COUNT 
.-ERASE 

.-CHECK REGISTERS 
.-OK 

.•REPORT ERROR 

.-WRITE 

.-MAKE SURE TRANSPORT ON LINE AND READY 
.-NO ERROR 
.-REPORT ERROR 



.-SPECIFY COUNT FOR WRITE 
.-WRITE 

.-CHECK REGISTERS 
:0K 

.-REPORT ERROR 

.SPACE REVERSE 

.-MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.•REPORT ERROR 



.SPACE REVERSE 
.CHECK REGISTERS 
:0K 

.•REPORT ERROR 

.•READ WITH LONG COUNT 

.-MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.-REPORT ERROR 



.•SPECIFY COUNT 
.-READ 
• .CHECK REGISTERS 
;0K 



CZTRAC. 


P11 


30-DEC-81 


3310 


030164 




3311 


030164 


104460 


3312 


030166 




3313 






33U 






3315 






3316 


030166 




3317 


030166 


004737 


3318 


030172 


004737 


3319 


0301 76 


103001 


3320 


030200 




3321 


030200 


104460 


3322 


030202 




3323 


030202 


032777 


3324 


030210 


001006 


3325 


030212 


004737 


3326 


030216 


004737 


3327 


030222 


103001 


3328 


030224 




3329 


030224 


104460 


3330 


030226 




3331 


030226 


004737 


3332 


030232 


103001 


3333 


030234 




3334 


030234 


104460 


3335 


030236 




3336 


030236 


004737 


3337 


030242 


004737 


3338 


030246 


103001 


3339 


030250 




3340 


030250 


104460 


3341 


030252 




3342 


030252 


004737 


3343 


030256 


103001 


3344 


030260 




3345 


030260 


104460 


3346 


030262 




3347 


030262 


012737 


3348 


030270 


004737 


3349 


030274 


004737 


3350 


030300 


103001 


3351 


030302 




3352 


030302 


104460 


3353 


030304 




3354 


030304 


004737 


3355 


030310 


103001 


3356 


030312 




3357 


030312 


104460 


3358 


030314 




3359 


030314 


012737 


3360 


030322 


004737 


3361 


030326 


004737 


3362 


030332 


103001 


3363 


030334 




3364 


030334 


104460 


3365 


030336 





013324 
014066 



000040 152034 



TEST3 
90$: 

T3AD: 

10$: 



8 8 

CHECK IDS AND EOF OPERATIONS, COUNT AN > PARITY ERRORS 

.•REPORT ERROR 



SEQ 92 



012416 
013534 



014066 



012464 
014254 



014066 



177400 002214 

013140 

017546 



014066 



177700 002214 

012642 

017156 



20$: 



30$: 



40$: 



45$: 



50$: 

55$: 
60$: 

70$: 



ERROR 
TRAP 



JSR 

JSR 

BCC 

ERROR 

TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

NOV 

JSR 

JSR 

RCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 



C$ERROR 



;TEST 

PC.CPUR 
PC JESTN 
lOi 

C$ERROR 

#LDPTS,dTRSR 
20$ 

PC, RWIND 
PC.CHEKI 
20i • 

C$ERROR 

PC-TESTN 
30i 

C$ERROR 

PCWTIDB 
PC. CHEKO 
40$ 

CSERROR 

PC.TBSTN 
45i 

C$ERR0R 

#-400.USEB 

PC.CRS 

PC.CHEKFX 

sol 

C$ERROR 

PC.TESTN 
55i 

CSERROR 

#-100, USES 
PC.HRT 
PC.CHEKCX 
70i 

C$ERROR 



READ COUNT ERROR. COUNT TOO SHALL 
RESET TR79 

MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 

:0N LINE AND READY 

;IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
; REWIND 

I CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 

;AT LOAD POINT 

.'MAKE SURE TRANSPORT ON LINE AND READY 
:N0 ERROR 
.•REPORT ERROR 

.-WRITE IDS 

;WRITE IDB 
CHECK REGISTERS 
OK 

REPORT ERROR 



;£RASE 



; WRITE 



.MAKE SURE TRANSPORT ON LINE AND READY 
:N0 ERROR 
.•REPORT ERROR 



.•SPECIFY ERASE COUNT 
.ERASE 

.•CHECK REGISTERS 
•OK 

•REPORT ERROR 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



SPECIFY COUNT FOR WRITE 
WRITE 

CHECK REGISTERS 
OK 

REP0R1 ERROR 



.•SPACE REVERSE 
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TEST3 



7366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

5421 



030336 
030342 
030344 
030344 
030346 
030346 
030352 
030356 
030360 
030360 
030362 
030362 
030366 
030370 
030370 
030372 
030372 
030400 
030404 
030410 
030412 
030412 
030414 



030414 
030414 
030420 
030424 
030426 
030426 
030430 
030430 
030436 
030440 
030444 
030450 
030452 
030452 
030454 
030454 
030460 
030462 
030462 
030464 
030464 
030470 
030474 
030476 
030476 
030500 
030500 
030504 
030506 
030506 



004737 
103001 

104460 

004737 
004737 
103001 

104460 

004737 
103001 

104460 

012737 
004737 
004737 
103001 

104460 



004737 
004737 
103C01 

104460 

032777 
001006 
004737 
004737 
103001 

104460 

004737 
103001 

104460 

004737 
004737 
103001 

104460 

004737 
103001 

104460 



014066 



013024 
017416 



014066 



177677 002214 

012756 

015142 



75 S: 



80$: 



85$: 



013324 
014066 



000040 151606 



90$: 
T3AE: 

10$: 



012416 
013534 



014066 



012464 
014254 



014066 



20$: 



30$: 



40$: 



C 8 

ID8 AND EOF OPERATIONS, COUNT AND PARITY ERRORS 



SEO 93 



TESTN 



C$ERR0R 

PC.SPR 

PC-CHEKEX 

80i 

C$ERROR 

PC. TESTN 
85i 

C$ERROR 

#-101. USES 
PC.RO 
PC.CHEKAO 
90i 

C$ERROR 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



SPACE REVERSE 
CHECK REGISTERS 
OK 

REPORT ERROR 



.■READ WITH SHORT COUNT 

.HAKE SUNE TRANSPORT ON LINE AND READY 
;N0 ERROR 
; REPORT ERROR 



SPECIFY COUNT 
READ 

CHECK REGISTERS 
OK 

REPORT ERROR 



;TEST 

PCCPWR 

PC.TESTN 

lOi 

C$ERROR 

fLDPTS.iTRSR 
20$ 

PC.RWIND 
PC.CHEKI 
20i 

C$ERROft 

PC-TESTN 
30i 

C$ERROR 

PC.WTIDB 
PC.CHEKO 
40i 

C$ERROR 

PC. TESTN 
45i 

C$ERROR 



SPACE REVERSE COUNT ERROR. SHORT COUNT 
.♦RESET TR79 

;nAKE SURE TRANSPORT ON LINE AND READY 
:N0 ERROR 
.•REPORT ERROR 

:0N LINE AND READY 

;JF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
; REWIND 

; CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 

:AT LOAD POINT 

.HAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.•REPORT ERROR 

.•WRITE IDS 

;WRITE IDB 
CHECK REGISTERS 
OK 

REPORT ERROR 



.•ERASE 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 





P11 














01?737 




030^16 


004737 




030S?? 


004737 






105001 




030530 






030530 


104460 




03053? 






03053? 


004737 




030536 


103001 




030540 






030540 


104460 




03054? 




3435 


030 542 


012737 


3436 


030550 


004737 


3437 


030554 


004737 


3438 


030560 


103001 


3439 


030562 




3440 


030562 


1 04460 


3441 


030564 




3442 


030564 


904737 


3443 


030570 


103001 


3444 


030572 




3445 


030572 


1 04460 


3446 


030574 




344/ 


030574 


012737 


3448 


030602 


004737 


3449 


030606 


004737 


3450 


030612 


103001 


3451 


030614 




3452 


030614 


104460 


3453 


030616 




3454 






3455 






3456 






34^7 


030616 




3458 


030616 


004737 


34 S9 


030622 


004737 


3460 


030626 


103001 


3461 


030630 




3462 


030630 


104460 


3463 


030632 




3464 


030632 


032777 


3465 


030640 


001006 


3466 


030642 


004737 


3467 


030646 


004737 


3468 


030652 


103001 


' 3469 


030654 




3470 


030654 


104460 


3471 


030656 




3472 


030656 


004737 


3473 


030662 


103001 


3474 


030664 




3475 


030664 


104460 


3476 


030666 




34 77 


030666 


004737 



177400 
013140 
017546 



014066 



177700 
012642 
017156 



014066 



177701 
013024 
015316 



002214 



TEST3 
45S: 
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002214 



002214 



SOS: 

55S: 
60S: 

70S: 
75S: 



013324 
014066 



000040 151404 



SOS: 
T3AF; 

10S: 



012416 
013534 



014066 



012464 



20S: 



30S: 



MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 



JSR 

JSR 

BCC 

ERROR 

TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

JSR 



«*400,USEB 
PC.ERS 
PC-CHEKFX 
50i 

CSERROR 

PC.TESTN 
55i 

CSERROR 

«-100,USEB 
PCWRT 
PC-CHEKCX 
70i 

CSERROR 

PC-TESTN 
75i 

CSERROR 

#-77, USES 
PCSPR 
PC.CHEKAE 
SOS 

CSERROR 



;TEST 

PCCPWR 

PC.TESTN 

lOi 

CSERROR 

#L0PTS,8TRSR 
20S 

PCRUINO 
PC.CHEKI 
20i 

CSERROR 

PC.TESTN 
30i 

CSERROR 
PC.UTIDB 



; WRITE 



SPECIFY ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

REPORT ERROR 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT EnROR 



SPECIFY COUNT FOR WRITE 
WRITE 

CHECK REGISTERS 
OK 

REPORT ERROR 

.•SPACE REVERSE WITH SHORT COUNT 

.•MAKE SURE TRAMSPORT ON LINE AND READY 
.NO ERROR 
.'REPORT ERROR 



SPECIFY COUNT 
SPACE REVERSE 
CHECK REGISTERS 
OK 

REPORT ERROR 



SPACE REVERSE COUNT ERROR. COUNT TOO LARGE 
RESET TR79 

MAKE SURE TRANSf^T ON LINE AND READY 
NO ERROR 
REPORT ERROR 

;0N LINE AND READY 

IF AT LOAD POINT 

THEN SKIP "PRELIMINARY REWIND 
;REWIND 

.-CHECK REGISTERS 

;OK.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 

;AT LOAD POINT 

.-MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.REPORT ERROR 

.•WRITE IDB 

.-WRITE IDB 
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5478 030672 00A737 0U254 JSR 

3479 030676 103001 BCC 

5A80 030700 ERROR 

3A81 030700 104460 TRAP 

3482 030702 40$: 

5483 030702 004737 014066 JSR 

5484 030706 103001 BCC 
3485 030/10 ERROR 
5486 030710 104460 TRAP 

3487 030712 45$: 

3488 030712 012737 177400 002214 MOV 

3489 030720 004737 013140 JSR 

3490 030724 004737 017546 JSR 

3491 030730 103001 BCC 

5492 030732 ERROR 

5493 030732 104460 TRAP 

5494 030734 50$: 

5495 030734 004737 014066 JSR 

3496 030740 103001 BCC 

3497 030742 ERROR 

5498 030742 104460 TRAP 

5499 030744 55$; 

3500 030744 012737 177700 002214 MOV 

3501 030752 004737 012642 JSR 

3502 030756 004737 017156 60$: JSR 
5505 030762 103001 BCC 
5504 030764 ERROR 

3505 030764 104460 TRAP 

3506 030766 70$: 

3507 030766 004737 014066 JSR 

3508 030772 103001 BCC 

3509 030774 ERROR 

3510 030774 104460 TRAP 

3511 030776 75$: 

3512 030776 012737 177677 002214 MOV 

3513 031004 004737 013024 JSR 

3514 031010 004737 015462 JSR 

3515 031014 103001 BCC 

3516 031016 ERROR 

5517 031016 104460 TRAP 

5518 031020 80$: 
5519 

5520 

3521 031020 T3AX: 

3522 031020 004757 013324 JSR 

3523 031024 004737 014066 JSR 

3524 031030 103001 BCC 

3525 031032 ERROR 

3526 031032 104460 TRAP 

3527 031034 10$: 

3528 031034 032777 000040 151202 BIT 

3529 031042 001006 BNE 

3530 031044 004737 012416 JSR 

3531 031050 004737 013534 JSR 

3532 031054 103001 BCC 
3535 031056 ERROR 
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108 AND EOF OPERATIONS. COUNT AND PARITY ERRORS 



PC.CHEKO 
40i 

C$ERR0R 

PC.TESTN 
45i 

C$ERR0R 

/V-400,USE6 
PCERS 
PC.CHEKFX 
50$ 

C$ERROR 

PCJESTN 
55i 

C$ERROR 

*-100,USEB 
PC.WRT 
PC.CHEKCX 
70i 

C$ERROR 

PC.TESTN 
75$ 

C$ERROR 

*-101.USEB 
PC.SPR 
PC-CHEKAF 
80i 

C$ERROR 



; ERASE 



; WRITE 



CHECK REGISTERS 
OK 

REPORT ERROR 



MAKE SURE TRANSPORT ON LINE AND READr 
NO ERROR 
REPORT ERROR 



SPECIFY ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

REPORT ERROR 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



SPECIFY COUNT FOR WRITE 
WRITE 

CHECK REGISTERS 
OK 

REPORT ERROR 



.SPACE REVERSE WITH LOMG COUNT 

;FUKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.-REPORT ERROR 



SPECIFY COUNT 
SPACE REVERSE 
CHECK REGISTERS 
OK 

REPORT ERROR 



PCCPWfi 
PC.TESTN 
lOi 

C$ERROR 

#LDPTS.8TRSfi 
20$ 

PC.RWIND 
PC.CHEKl 
20i 



;TEST OPERATIONS 



WITH EVEN PARITY DATA 
RESET TR79 

MAKE SURE TRANSPORT ON 
NO ERROR 
REPORT ERROR 



LINE AND READY 



:0N LINE AND READY 

IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
;REWIND 

CHECK REGISTERS 

;0K.NO ERRORS. TAPE AT LOAD POINT 
; REPORT ERROR 



CZTRAC.P11 30-DEC-81 11:08 TESTS CHECK 

355A 031056 10A460 TRAP 

3535 031060 20$: 

3536 031060 004737 0H066 JSR 

3537 031064 103C01 BCC 



3541 031070 004737 012464 JSR 

3542 031074 004737 014254 JSP 

3543 031100 103001 BCC 

3544 031102 ERROP 

3545 031102 104460 TRAP 

3546 031104 40S: 

3547 031104 004737 014066 JSR 

3548 031110 103001 BCC 

3549 031112 ERROR 

3550 031112 104460 TRAP 

3551 031114 45$: 

3552 031114 012737 177400 002214 HOV 

3553 031122 004737 013140 JSR 

3554 031126 004737 017546 JSR 

3555 031132 103001 BCC 

3556 031134 ERROR 

3557 031134 104460 TRAP 

3558 031136 50$: 

3559 031136 004737 014066 JSR 

3560 031142 103001 BCC 

3561 031144 ERROR 

3562 031144 104460 TRAP 

3563 031146 55$: 

3564 031146 012737 177700 002214 HOV 

3565 031154 012737 002256 002216 HOV 

3566 031162 004737 012710 JSR 

3567 031166 004737 016460 JSR 

3568 031172 103001 BCC 

3569 031174 ERROR 

3570 031174 104460 TRAP 

3571 031176 60$: 

3572 031176 T3Ay: 

3573 031176 004737 013324 JSR 

3574 031202 004737 014066 JSR 

3575 031206 103001 BCC 

3576 031210 ERROR 

3577 031210 104460 TRAP 

3578 031212 10$: 

3579 031212 012737 177700 002214 MOV 

3580 031220 004737 013024 JSR 

3581 031224 004737 016636 JSR 

3582 031230 103001 BCC 



3585 031234 /0%: 

3586 031234 T3AZ: 

3587 031234 004737 013324 JSR 

3588 031240 004737 014066 JSR 

3589 031244 103001 BCC 
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C$ERROR 
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PC.TESTN 
30i 

C$ERROR 

PC.UTIOB 
PC.CHEKO 
40i 

C$ERR0R 

PCJESTN 
45i 

C$ERROR 

#-400.USEB 
PC.ERS 
PC-CHEKFX 
50i 

C$ERR0R 

PC.TESTN 
55i 

C$ERR0R 

#-100,USE6 

«8AD0UT.USEC 

PC.WRTC 

PC.CHEKAX 

60i 



;AT LOAD POINT 

.-MAKE SURE TRANSPORT ON LINE AND READY 
:N0 ERROR 
.■REPORT ERROR 

:URITC IDB 

;URITb IDB 
.•CHECK REGISTERS 
;0K 

; REPORT ERROR 



.ERASE 



C$ERROR 



MAKE SURE TRANSPORT ON LINE AND READY 
NO ERROR 
REPORT ERROR 



SPECIFY ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

REPORT ERROR 



.•WRITE DATA WITH EVEN PARITY 

.•MAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.•REPORT ERROR 



SPEClfi COUNT 
SPECIFY DATA ADDRESS 
URITE 

CHECK REGISTERS 
OK 

REPORT ERROR 



PC.CPUR 
PC.TESTN 

loi 

C$ERRCR 

#-100.USEB 
PC.SPR 
PC-CHEKAY 
70i 

C$ERROR 



: SPACE REVERSE OVER EVEN PARITY DATA 



RESET TR79 
MAKE SURE TRANSPORT ON LINE AND READ'' 
NC ERROR 
REPORT ERROR 



:0N LINE AND READY 

;SPECIFY COUNT 
; SPACE REVERSE 
; CHECK REGISTERS 
;0K 

; REPORT ERROR 



;TEST READ EVEN PARITY DATA 
PC.CPyR .RESET TR79 

PC.TESTN .MAKE SURE TRANSPORT ON LINE AND READY 

10$ :N0 ERROR 



CZTRAC.Pn 30-DEC-81 11:08 TEST3 

3590 031246 

3591 031246 104460 

3592 031250 10$: 

3593 031250 004737 014066 

3594 031254 103001 

3595 031256 

3596 031256 104460 

3597 031260 75$: 

3598 031260 012737 177700 002214 

3599 031266 012737 006322 002216 

3600 031274 004737 012756 

3601 031300 004737 017002 

3602 031304 103001 

3603 031306 

3604 031306 104460 

3605 031310 004737 013324 80$: 
3606 

3607 031314 

3608 031314 Li 0023 

3609 031314 104401 
3610 

3611 
3612 

3613 .S8TTL 
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; REPORT ERROR 
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ERROR 
TRAP 

JSR 
BCC 
ERROR 
TRAP 

MOV 

MOV 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 

ENDTST 
TRAP 



C$ERROR 

PC.TESTN 
75i 

C$ERROR 

#-100,USEB 
♦INPUT, USEC 
PC,RD 
PC-CHEKA2 
80i 

C$ERROR 
PCCPWR 



C$ETST 



;0N LINE AND READY 

:nAKE SURE TRANSPORT ON LINE AND READY 

;N0 ERROR 

; REPORT ERROR 



; SPECIFY COUNT 

; SPECIFY DATA ADDRESS 

;READ 

; CHECK REGISTERS 
;0K 

;REPORT ERROR 



;TR79 POWER CLEAA 



TEST4 WRITE, READ AND TEST DATA WRITTEN TO TAPE 



CZTRAC.Pn 30-DEC-81 11 08 

36U 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
362A 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
363A 
3635 
3636 
3637 
3638 
3639 
36A0 

3641 031316 0i,2777 000100 
3642 

3643 031324 032777 000004 

3644 031332 001404 

3645 000054 

3646 031334 

3647 031334 104457 

3648 031336 000054 

3649 031340 021002 

3650 031342 017744 

3651 031344 

3652 031344 004737 

3653 031350 004737 

3654 031354 103001 

3655 031356 

3656 031356 104460 

3657 031360 

3658 031360 032777 

3659 031366 001006 

3660 031370 004737 

3661 031374 004737 

3662 031400 103001 

3663 031402 

3664 031402 104460 

3665 031404 

3666 031404 004737 

3667 031410 103001 

3668 031412 

3669 031412 104460 
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////////////////////////////////////////////////////////////////////// 
TEST4 WRITES, READS AND TESTS DATA WRITTEN ON TAPE 

TEST4 WRITES A FILE Of DATA TO TAPE A NUWER OF TIMES. 
THE FILE CONTAINS 15 SLOCKS OF DATA. EACH TIME A BLOCK 
IS WRITTEN THE DATA IS READ BACK AND CHECKED. THE NUMBER 
OF TIMES WRITING AND CHECKING A FILE IS REPEATED IS 
SPECIFIED IN THE SOFTWARE P-TABLt. THE DEFAULT VALUE 
FOR THIS REPEAT COUNT IS 10. (DECIMAL) . 



SEO 98 



TEST4 INCLUDES: 



TEST NAME IN CZTRAB 



INSURE WRITE RING TESTC 
REWIND AND WRITE ID BLOCK TESTO 
WRITE. SPACE REV, READ AND TEST DATA TESTXX 
///////////////////////////////////////////////////////////////////// 



031316 
031 31 6 
031316 

031316 042777 



150716 
150712 



013324 
014066 



000040 150656 

012416 
013534 



014066 



T4:: 
TEST4: 



ENUM = 



10$: 



B6NTST 



15$: 



20$: 



BIC 

BIT 
BEQ 

•D<ENUM 
ERRSOFT 
TRAP 
.WORD 
.WORD 
.WORD 

JSR 

JSR 

BCC 

ERROR 

TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 



.-TEST REPEATED URITE, SPACE REVERSE. READ 
.•NEGATE TR79 INTERRUPT ENABLE 

#8IT6,aTRCR .-CLEAR TR79 INTERRUPT ENABLE BIT 

.-CHECK FOR WRITE ENABLE RING 

ffPTS,aTRSR ;IF WRITE ENABLE RING IS PRESENT 

10$ : THEN CONTINUE 

* 1> ; INCREMENT ERROR NUBER 

ENUM,EM4A,ERR2 .-REPORT ERROR. GET RING INSTALLED 

C$ERSOFT 

44 

EmA 
EM2 

PCCPWR 
PC.TESTN 
15i 



C$ERROR 

#LDPTS,aTRSR 
20$ 

PC.RWINO 
PC.CHEKI 
20i 

C$ERROR 

PC.TESTN 
25i 

C$ERROR 



;MAKE SURE TAPE IS AT LOAD POINT 
RESET TR79 

MAKE SURE TRANSPORT ON LINE AND READY 
NO ERRO^i 
REPORT ERROR 



IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
REWIND 

CHECK REGISTERS 
NO ERRORS. 
REPORT ERROR 



;AT LOAD POINT 

.-MAKE SURE ON LINE 
;0K 

.REPORT ERROR 



CZTRAr.Pil 



3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 



031414 
031414 
031420 
031424 
031426 
031426 
031430 
031430 
031434 
031436 
031436 
031440 
031440 
031446 
031452 
031456 
031460 
031460 
031462 
031462 
031466 
031472 
031476 
031502 
031504 

031506 
031512 
031514 
031514 
031516 
031516 
031522 
031526 
031530 
031534 
031536 
031536 
031540 
031540 
031544 
031546 
031546 
031550 
031550 
031554 
031560 
031562 
031562 
031564 
031564 
031570 
031572 
031572 
031574 
031574 



004737 
004737 
103001 

104460 

004737 
103001 

104460 

012737 
004737 
004737 
103001 

104460 

013746 
012704 
012703 
012337 
010346 
010446 

004737 
103001 

04460 

004737 
105777 
100506 
004737 
103001 

104460 

004737 
103001 

104460 

004737 
004737 
103001 

104460 

004737 
103001 

104460 

004737 



11:08 


TEST4 


WRITE 




25$: 




012464 




JSR 


014254 




JSR 






BCC 






ERROR 






TRAP 




30$: 




014066 




JSR 






BCC 






ERROR 






TRAP 




35$: 




177400 002214 




MOV 


013140 




JSR 


017546 




JSR 






BCC 






ERROR 






TRAP 




40$: 




002152 




MOV 


000017 


T4XX: 


HOV 


nxonnn 






002214 


10$: 


NOV 






nov 






MOV 


014066 




JSR 






BCC 






ERROR 






TRAP 




15$: 




012642 




JSR 


150516 




TSTB 






BMJ 


017156 




JSR 






BCC 






ERROR 






TRAP 




20$: 




014066 




JSR 






BCC 






ERROR 






TRAP 




25$: 




013024 




JSR 


017416 




JSR 






BCC 






ERROR 






TRAP 




30$: 




014066 




JSR 






BCC 






ERROR 






TRAP 




35$: 




012756 




JSR 
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PCWTIDB 
PC.CHEKO 
30i 

C$ERROR 

PC.TESTN 
35i 

C$ERROR 

#-400,USEB 
PC.ERS 
PC.CHEKFX 
40i 



; WRITE IDB 

; WRITE IDB 



.ERASE 



C$ERROR 



CHECK REGISTERS 
OK 

REPORT ERROR 



MAKE SURE TRANSPORT ON LINE AND READV 
NC ERROR 
REPORT ERROR 



SPECIFY ERASE COUNT 
ERASE 

CHECK REGISTERS 
OK 

REPORT ERROR 



RPTCNT,-(SP) 
#15.,R4 
#SI2TAB-R3 
(R3)*.USEB 
R3.-(SP) 
R4.-(SP) 

PCTESTN 
15$ 

C$ERROR 

PC.WftT 
8TRSR 
100$ 

PC-CHCKCX 
20i 

C$ERR0R 

PC.TESTN 
25i 

C$ERROR 

PCSPR 
PC-CHEKEX 
30i 

C$ERROR 

PC,TESTN 
3Si 

C$ERROR 

PCRD 



;TEST REPEATED SEQUENCE OF WRITE, SPACE REVERSE, READ 



.WRITE 



COPr LOOP REPEAT COUNT 
SPECIFY MMER OF BLOCKS PER LOOP 
POINT TO TABLE OF BLOCK SIZES 
SPECIFY WORD COUNT 
SAVE R3 AND R4 



MAKE SURE ON LINE AND READY 
OK 

REPORT ERROR 



EXECUTE WRITE 
IF AT EOT 

THEN REWIND AMD EXIT TEST 
CHECK REGISTERS 
OK 

REPORT ERROR 



.SPACE REVERSE 

.-MAKE SURE ON LINE AND READY 

:0K 

.•REPORT ERROR 



SPACE REVERSE 
CHECK REGISTERS 
OK 

REPORT ERROR 



.READ 



MAKE SURE ON LINE AND READY 
OK 

REPORT ERROR 



.■EXECUTE READ 



CZTRAC.P11 



30-DEC-81 11:08 
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TESTA WRITE. kEAD AND TEST DATA WRITTEN TO TAPE 



SEO 100 



3726 


031600 


004737 


017?;'6 




JSR 
BC 


3727 


031604 


103001 






37:8 


031606 








ERhOR 


3729 


031606 


104460 






TRAP 


3730 


031610 






40$: 




3731 


031610 


004737 


014364 




JSR 


3732 


031614 


103001 






BCC 


3733 


031616 








ERROR 


373A 


031616 


104A60 






TRAP 


3735 


031620 


004737 


014466 


PA* 

50$: 


JSR 


3736 












3737 


031624 


012604 






HOV 


3738 


031626 


012603 






nov 


3739 


031630 


005304 






DEC 


3740 


031632 


001321 






BNE 


3741 












3742 


031634 


004737 


A 4 / A ^ ^ 

014066 




JSR 


3743 


031640 


4 A9AA4 

103001 






BCC 


3744 


031642 








ERROR 


3745 


031642 


104460 






V A A A 

TRAP 


3746 


031644 






55$: 




3747 


031644 


AA / 

004737 


A 4 7 A 7^ 

013072 




■ /* A 

JSR 


3748 


031650 


4 AP 777 

105777 


4 r A77A 

150370 




TSTB 


3749 


031654 


100435 






AM f 

BWI 


3750 


A94 £ ^ M 

031656 


AA/ 77 7 

004737 


A1 T7f ^ 

013756 




1 P A 

JSR 


3751 


031662 


103001 






BCC 


3752 


031664 








ERROR 


3753 


031664 


4 A# t M. ^ 

10446C 






TRAP 


3754 


031666 






60$: 




3755 


031666 


AA # "7 #"7 

004737 


A4 / A^ ^ 

014066 




f ^ A 

JSR 


3756 


A94 M 

031672 


4 A7A A4 

103C01 






^p p 

BCC 


3757 


031674 








r A AAA 

ERROR 


3758 


A94 

031674 


4 A/ # ^ A 

104460 






TRAP 


3759 


031676 






63$: 




3760 


A94 M 

031676 


AAP A7 7 

005037 


AA^^4 / 

002214 




^1 A 

CLR 


3761 


A9 « ^A ^ 

031 702 


AA/ 777 

004737 


A4 7A^/ 

013024 




I PA 

JSR 


3762 


A94 "YA^ 

031706 


004737 


A4 / CAX 

014506 




JSR 


3763 


A94 ^ 

031712 


4 A7AA 4 

103001 






BCC 


3764 


A9 4 ^4 / 

031714 








P A A A A 

ERROR 


3765 


A9 4 ^4 / 

031714 


4 A / £ ^ t\ 

104460 






TRAP 


3766 


A9 4 ^4 A. 

031716 






7A# . 

70$: 




3767 


A9 4 ^4 M 

031716 


f\f\S 777 

004737 


A4 ^7P^ 

012756 




JSR 


3768 


031 722 


004737 


014636 




JSR 


3769 


A94 

031 726 


103001 






ap p 

BCC 


3770 


A94 ^9A 

031730 








PA AAA 

ERROR 


3771 


A94 ^9A 

031730 


4 A / ^ ^ A 

104460 






V A * A 

TRAP 


1772 


031 732 






80$: 




3773 


A94 'V7'> 

031 732 


AAC 71 ^ 

005716 






TST 


5771* 


A Y4 '77 / 

031754 


4 AA/ A 4 

100401 






AM f 

Bnl 


3775 


A94 

031736 


AAf 74 ^ 

005316 






DEC 






oni 3^3 
UU 1 CjC 






one 


1777 


031742 


000402 






BR 


3778 


031744 






100$: 




3779 


031744 


012604 






nov 


3780 


031746 


012603 






nov 


3781 


031750 


005726 




110$: 


TST 



PC.CHEKDX 
40i 

C$ERR0R 

PC.CHEKS 
50$ 

CSERROR 
PC.CHEKSl 

(SP)*, R4 
(SP)*.R3 
R4 
10$ 

PC.TESTN 
5Si 

C$ERR0R 

PC.WTEOF 

aTRSR 

110$ 

PC-CHEKL 
60i 

C$ERR0R 

PC-TESTN 
65i 

C$ERROR 

USES 
PCSPR 
PC.CHEKU 
70i 

C$ERR0R 

PC.RD 

80i 

CSERROR 

(SP) 

90$ 

(SP) 

T4XX 

110$ 

(SP)*.R4 
(SP)*,R3 
(SP)* 



CHECK REGISTERS 
OK 

REPORT ERROR 



.-CHECK DATA JUST READ 
;0K 

.•REPORT ERROR 

.•CLEAR INPUT AREA 
.•CHECK FOR REPEAT SEQUENCE 
.•RESTORE R3 AND R4 

;1F NOT ALL BLOCK SI2ES DONE 
; THEN DO THE NEXT ONE 
.•WRITE EOF 

.•MAKE SURE ON LINE AND READY 
;0K 

.•REPORT ERROR 



WRITE EOF (TAPE HARK) 
IF AT EOT 

THEN REWIND AND EXIT 
CHECK REGISTERS 
OK 

REPORT ERROR 



.SPACE REVERSE OVER EOF 

:nAKE SURE ON LINE AND READY 
;0K 

.-REPORT ERROR 



SPECIFY COUNT 

SPACE REVERSE OVER EOF 

CHECK REGISTERS 

OK 

REPORT ERROR 



.READ EOF 



READ 
CHECK REGISTERS 
OK 

REPORT ERROR 



:IF LOOP REPEAT COUNT IS NEGATIVE 
; THEN REPEAT LOOP TO EOT 
.•SUBTRACT 1 FROn LOOP REPEAT COUNT 
:IF COUNT NOT ZERO THEN REPEAT LOOP 
.•REWIND AND EXIT TEST4 
.AT EOT. REWIND AND EXIT TEST 
.-RESTORE R4 AND R3 

.-DISCARD LOOP REPEAT COUNT 



CZTRAC.P11 30-DEC-81 11:08 TESTA 





n^i 7^p 

I f Jc 








1 HC A • 




OTI 7^3 

U J 1 f Jc 


UU*»f Jf 








Jf OH 


Uj I f JO 


1 yjjMyj 1 








Jf OJ 


U J 1 f ou 










T7RA 
J( oo 


Vj I f OU 










Jf Of 


\lj 1 f Oc 








lOt • 


Jf OO 


\IJ 1 f Oc 


UUh f J f 


ni pAi A 






T7AO 
Jf ov 


nx^ 7AA 


UUHf Jf 


ni x^XL 

U 1 J J JH 






'?70f> 

jfy\> 


nx^ 77? 

U J lire 


1 U jUU 1 








■^701 

Jf T 1 


t\X^ 77L 
U J 1 f f •» 










Jf TC 


071 77^ 
U J 1 f f *» 


1 UHHOv 








Jf T J 


n^i 77/» 

U J 1 f f o 


UvUH 1 f 






701 • 


Jf 




177777 

\ f f 1 9 t 


1 7777 f, 


^7777^ 




Jf V J 




1 f f f r *t 


y7777'^ 

t f f f f -J 


\77777 

1 r r f r C 




Jf TfO 


V/J£ w 1 


177771 


1 77770 

Iff f r w 


177760 




3797 


032022 


177740 


1 77700 


177600 




3798 


032030 


177400 


177000 


176000 




3799 


032036 








EN0T4: 


3800 


032036 










3801 


032036 








Li 0024: 


3802 


032036 


104401 









3803 

3804 .SBTTL 



K 8 

WRITE, READ AND TEST DATA WRITTEN TO TAPE 

.-REWIND 



SEQ 101 



JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 

BR 

.WORD 



PC.TESTN 
10S 

CSERROR 

PC.RWIND 
PC.CHEKl 
20i 

CSERROR 
ENDT4 



.•MAKE SURE ON LINE AND READY 
;OIC 

.•REPORT ERROR 



; REWIND 

.•CHECK REGISTERS 
;0K 

.•REPORT ERROR 



;EXIT TEST 



-1.-2.-3.-4,-5,-6,-7.-10,-20.-40.-100.-200,-400,-1000.-2000 



ENDTST 

TRAP CSETST 

TESTS READ DATA WRITTEN BY TEST4 



r 7TBAr 


P1 1 


ju yc L o 1 


1 1 • OR 
1 1 • wo 


















jOKI f 
























JO 1 u 








jO 1 I 








jO I c 








30 1 J 
















JO I J 
















Vil 7 

.^O 1 t 








JO I J 








jO 1 <r 








JOC V 


U JCl/HU 








UJCVHU 






JOCC 


V/JC w^u 






jOc J 












04P777 


0001 00 

www I wV 


Joe J 








jOcO 


l/JCl/HO 


004737 


0133P4 


JOt. ' 


03P05? 

VJC V JC 




014066 

w I "ffVW 


jOcO 


V JC V JU 


1 03001 




JOC7 


03?(V)0 

V JC vOv 






JOJU 


V JCwUV 


104460 

1 v"t"tOv 




JO J 1 


V JCvOC 






JOJC 


03PfV»P 


03P777 

V JC lit 


000040 

W W~ w 




03P070 


001006 




JO J^ 


03P07? 

VJCVf c 


004737 


012416 


JO J J 




004737 


013534 


JO JO 


V JC 1 vC 


103001 

1 V J W 1 




JOJf 


V jc I 






J€> JO 


V JC I 


104460 




JO J7 


V JC ■ WW 






^840 


V JC 1 w 


004737 

Wt 9 Jl 


01 4066 

V ■ "WWW 




V JC lie 


103001 






03P114 

V JC 1 I *ff 








03P1T4 

VJC lit 


104460 






V JC 1 1 u 








V jc i i o 








03P116 

V JC 1 1 W 


004737 


014066 

w I ~ WW 




V jc ICC 


103001 






w JC 1 








W JC ■ C"t 


104460 




JO Jv 










03P126 

V JC 1 CU 


012737 

VIC* J» 


t 9 f 1 9 1 




032134 


004737 


0127S6 

W ■ b ■ ^W 




032140 

V JC 1 ~ V 


004737 

W~ 9^9 


016262 

W I Wb Wb 


JO J"* 


032144 


103001 

1 W 1 




JOJJ 


03? 146 








V JC 1 "to 


104460 




3857 


032150 






3858 


032150 


013746 


002152 


3859 


032154 


012704 


000017 


3860 


032160 


012703 


032000 



TEST5 



L 8 

READ DATA WRITTEN BY TEST4 



SEQ 102 



///////////////////////////////////////////////////////////////////// 
TEST5 READ DATA WRITTEN BY TEST4 

TEST5 INCLUDES: TEST NAME IN C2TRAB 

REWIND THE TAPE TESTI 
READ THE ID BLOCK TESTAW 
READ THE TAPE TESTXY 

///////////////////////////////////////////////////////////////////// 



T5:: 
TESTS: 



10S: 



20S: 



25J: 
T5AU: 



10S: 



20$: 
T5XY: 



BGNTST 



BIC 

JSR 

JSR 

8CC 

ERROR 

TRAP 

BIT 

BNE 

JSR 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 



JSR 
BCC 
ERROR 
TRAP 

nov 

JSR 

JSR 

BCC 

ERROR 

TRAP 

HOV 
NOV 
NOV 



.TEST 

#BIT6,aTRCR 

PCCPWR 

PC.TESTN 

10$ 

C$ERROR 

#LDPTS.aTRSR 
20$ 

PCRWIND 
PC.CHEICl 
20i 

C$ERR0R 

PC-TESTN 
25i 

CSERROR 



PCTESTN 
10S 

CSERROR 

»'\ ,USEB 
PCRD 
PC.CMEKAW 
20i 

CSERROR 

RPTCNT,-(SP) 

#15..R4 

«SIZrAB,R3 



READING DATA WRITTEN BY TEST4 
.•NEGATE TR79 INTERRUPT ENABLE 

.•CLEAR TR79 INTERRUPT ENABLE BIT 
:NAKE SURE AT LOAD POINT 

.RESET TR79 

.NAKE SURE TRANSPORT ON LINE AND READY 
;N0 ERROR 
.•REPORT ERROR 

:0N LINE AND READY 

IF AT LOAD POINT 

THEN SKIP PRELIMINARY REWIND 
; REWIND 

; CHECK REGISTERS 
;N0 ERRORS. 
; REPORT ERROR 

;AT LOAD POINT 

:NAKE SURE TRANSPORT ON Li NE AND READY 
:N0 ERROR 
.REPORT ERROR 



.-READ IDS 



MAKE SURE ON LINE 
OK 

REPORT ERROR 



SPECIFY COUNT FOR READ IDB 
READ 

CHECK REGISTERS 
OK 

REPORT ERROR 



;READ DATA WRITTEN BY TEST4 

COPY LOOP REPEAT COUNT 
.'SPECIFY NUNBER OF BLOCKS PER LOOP 
;P01NT TO THE TABLE OF BLOCK SIZES 



CZTRAC.PM 



30-DEC-81 11:08 



JOO 1 


Ujc I Oh 


m D777 
U 1 c Jjr 


nn55i^ 




7n 


ni n7z.A 

U IU3hO 






n751 75 

U jc 1 r c 


U 1 vhhO 




jOOh 










7/. 


nrxL 777 
UUh f J' 


U 1 hUOO 


JOOO 


U JccUU 


1 n7nni 






UjccU£ 








n755n5 
UjccUc 


1 UhhOU 




7ftAO 








>Of u 


UjccUh 


nn^777 

UUh f Jf 


ni 57SA 


jOf 1 


Ujcc I U 


10^777 


1 cnoxo 


7J175 


U JCC 1 H 


1 UUh J J 




'<ii7'^ 


Ujcc IO 


00^7^7 


014^A4 


jOr H 


Ujcccc 






7a7S 

JOf J 








JOf O 




lO^^AO 

1 wHHOU 




■^177 
JOf f 


UjcccO 


00^7^7 


ni44AA 


jCr O 


VJCC 


ni5A04 




JOf ▼ 




V 1 COvj 




jOov 


Ujcc JO 






JOO 1 


\JJCCH\J 


noi XS1 

Uv 1 J J 1 




jooc 








jOoj 


Ujcchc 




U 1 HUOO 


TOO/ 
JOO** 


U JccHO 


10^001 




jOO J 


ujcc Jw 






JOOO 


WJCC JW 






jOOf 


Ujcc Jc 






JOOO 


u jcc Jc 


U 1 C r Jf 


'^77777 


jOOt 


ujccou 


004737 

Uw*# r J f 


01575A 


jOTu 


V/JCcO** 


10S777 


147754 

1 •» r r J*f 


JOt I 


\I3CC 1 w 


10041 1 




JOtC 


\JjCC I c 


004737 


014636 


jOTr J 


07557* 
WJCC' w 


00S716 




jOT*t 


vJC^vv 


100401 




JOt J 




VW J J 1 O 




jotd 


yj^c jv*t 


001 




jOTr 


077 70A 


000405 




jOxO 








jOtt 


075710 








VJC J I V 


015A04 








015A0^ 






wjc J I *» 


OrS75A 






U JC J I D 


0047^7 


014066 

V 1 "f vO W 


jWt 


0^5^55 
wJCJcc 


10^001 






07575A 








Ujc JC** 


1044A0 




jrvf 


UJC JCO 






JTVO 


07575A 
UJC Jew 


004737 


015416 






W*t f Jf 




JT 1 u 


07577A 






3911 


032340 






3912 


032340 


104460 




3913 


032342 






3914 


032342 






3915 


032342 






3916 


032342 


104401 





TESTS 
10$: 



n 8 

READ DATA WRITTEN BY TEST4 



SEQ 103 



20S: 



30S: 



40$: 



50$: 
60$: 
70$: 

75$: 



80$: 

LI 0025: 



nov 
nov 

MOV 

JSR 
8CC 
ERROR 
TRAP 

JSR 
TST8 

eni 

JSR 

BCC 

ERROR 

TRAP 

JSR 

MOV 

MOV 

DEC 

BNE 

JSR 
BCC 
ERROR 
TRAP 

MOV 

JSR 

TST8 

6MI 

JSR 

TST 

BMI 

DEC 

BNE 

BR 



MOV 

MOV 

TST 

JSR 

BCC 

ERROR 

TRAP 

JSR 

JSR 

BCC 

ERROR 

TRAP 

ENDTST 



(R3)*,USEB 

R3.-(SP) 

R4,-(SP) 

PC.TESTN 
20i 

C$ERROR 

PC.RD 
aTRSR 
60$ 

PC-CHEKS 
30i 

CSERROR 

PC.CHEKSl 

(SP)*. R4 

(SP)*.R3 

R4 

10$ 

PC.TESTN 
40$ 

C$ERR0R 

#-1.USEB 
PC,RD 
aTRSR 
70$ 

PCCHEKV 

(SP) 

50$ 

(SP) 

TSXY 

70$ 



(SP)*,R4 

(SP)*,R? 

(SP)* 

PC.TESTN 

75i 

C$ERROR 

PCRUIND 
PC.CHEKI 
80i 

C$ERROR 



;READ 



; SPEC If y WORD COUNT 
;SAVE REGISTERS 



.MAKE SURE ON LINE AND RE^Dr 
; REPORT ERROR 



READ 

IF AT EOT 

THEN REWIND AND EXIT TEST 
CHECK DATA JUST READ 
OK 

REPORT ERROR 

CLEAR INPUT \REA 
RESTORE REGISTERS. 



;READ EOF 



REDUCE COUNT. ALL BLOCK SIZES DONE'' 
IF NO, GO DO THE NEXT ONE 

MAKE SURE ON LINE AND READY 
OK 

REPORT ERROR 



SPECIFY COUNT FOR READ EOF 
READ EOF 
IF AT EOT 

THEN REWIND AND EXIT TEST 
CHECK REGISTERS 
IF LOOP REPEAT COUNT NEGATIVE 

THEN REPEAT TO EOT 
SUBTRACT 1 FROM LOOP REPEAT COUNT 
REPEAT LOOP 
REWIND AND EXIT TEST 



;AT EOT. REWIND AND EXIT TEST 
.•RESTORE REGISTERS. 

.DISCARD LOOP REPEAT tOUNT 
.MAKE SURE ON LINE AND READY 
;0K 

.-REPORT ERROR 



REWIND 

CHECK REGISTERS 
OK 

REPORT ERROR 



TRAP C$ETST 



N 8 

C2TRAC.P11 30-0EC-81 11:08 TESTS READ DATA WRITTEN BY TEST4 

3917 
3918 

5919 .S8TTL TEST6 CHECK MANUAL INTERVENTION OPERATIONS 



CZTRAC.P11 50-DEC-81 11:08 



3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

395A 

3935 

3936 

3937 

3938 

3939 

39A0 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

39^;9 

3950 032344 

3951 032344 
3952' 032344 
3953 

3954 

3955 032344 042777 

3956 032352 

3957 032352 032777 

3958 032360 001026 

3959 032362 

3960 032362 012746 

3961 032366 012746 

3962 032372 012746 

3963 032376 010600 

3964 032400 104417 

3965 032402 062706 

3966 032406 013702 

3967 032412 005001 

3968 032414 032777 

3969 032422 001005 

3970 032424 005201 

3971 032426 001372 

3972 032430 005302 

3973 032432 001370 

3974 032434 000752 
3975 



TEST6 



B 9 

CHECK MANUAL INTERVENTION OPERATIONS 



Seo 105 



/////////////////////////////////////////////////////////////////// 
TEST6 CHECKS MANUAL INTERVENTION OPERATIONS 

TEST6 CORRESPONDS TO TEST GROUP 1 FROM CZTRAB 

TEST6 INCLUDES: TEST NAME IN CZTPAS 



REMOVE WRITE RING 
TRY TO WRITE WITHOUT RING 
INSERT WRITE RING 
DELAV 10 SECONDS 
TAKE UNIT OFF LINE 
TELL OPERATOR TO RESET 
REWIND THE TAPE 
WRITE PAST EOT 
SPACE REVERSE PAST EOT 
READ PAST EOT 
WRITE EOF PAST EOT 
SPACE REVERSE OVER EOF PAST EOT 
READ EOF PAST EOT 
REWIND AND 60 OFF LINE 



TESTS 
RUNAS 
TESTC 
TESTAJ 
TESTP 
TESTAK 
TESTI 
TESTAL 
TESTAM 
TESTAN 
TE Sr AO 
TESTAP 
TESTAO 
TESTO 



/////////////////////////////////////////////////////////////// 



000100 
000004 



022024 
020473 
000002 



0O006 
uu?230 



147670 
147664 



T6:; 
TEST6: 



TIB: 



BGNTST 



10$: 



000004 ^W622 20S: 



BIC 


4f8iT6,aTRCR 


BIT 


«8IT2,aTRSR 


BNE 


30$ 


PRINTF 


l'FMTTXT,#MRMVR6 


MOV 


#MRMVRG.-(SP) 


MOV 


#FMTrXT,-(SP) 


MOV 


»2,-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


#6,SP 


MOV 


0LXT0F,R2 


CLR 


R1 


BIT 


#8IT2,8TRSR 


BNE 


30$ 


INC 


R1 


BNE 


20$ 


DEC 


R2 


BNE 


20$ 


BR 


10$ 



;TEST WRITE IDB 
.-NEGATE 



WITHOUT WRITE ENABLE RING 
TR79 INTERRUPT ENABLE 
: CLEAR INTERRUPT ENABLE BIT 
; REMOVE WRITE ENABLE RING 

IF WRITf ENABLE RING NOT PRESENT 
THEN CONTINUE TEST 
ELSE ASK OPERATOR TO REMOVE RING 



;SPECIFY DELAY MULTIPLIER 
SPECIFY DELAY CONSTANT 
IF RING IS NOT PRESENT 

THEN KEEP CONTINUE TEST 
TICK 

;KEEP CHECKING 
COUNT DOWN MULTIPLIER 
;KEEP CHECKING 
;REMIKD OPERATOR 
.-MAKE SURE ON LINC 



C 9 

SEQ 106 



CZTRAC. 


P11 


50-DEC-81 


11 :08 




TEST6 


CHECK MANUAL INTERVENTION OPERATIONS 


39>6 


032436 


004737 


014166 




30$: 


JSR 


Dr T L C T kiki 

PC-TtSTNN 


.IIATT TAD TDAUCSADT AU 1 f UC 

.WAIT FOR THANSrORT ON LINE 


3977 


032442 


103004 






BCC 


40$ 


t nif AU ■ fUC uf TU UA CD DAD 

;0K. ON LiNc WITH NO cRROR 


3978 




000055 






ENU« = 


PvcNUW 


A. 1 N 
♦ 1 > 


.•INCREMENT ERROR COUNT 


3979 


U32444 








cRRSOr 1 


CkillM MOAI CDDI 

cNUn,fl^AI ,cRRI 


*DCDADT rDDAD 

.REPORT tRROR 


3980 


032444 


104457 








TRAP 


C$ERSOFT 




3981 


032446 


000055 








.WORD 


45 






TiTO/ CA 

U3c4d0 










.WHO 


N2A1 




3983 


03?'. 52 


017736 








.WORD 


ERR1 


.'WAIT 


3984 


032454 


004737 


013354 




40$: 


1 CD 

JSR 


PCRWWAIT 


3985 


0324b0 


004737 


013324 






JSR 


PC.CPWR 


.•RESET TR79 


3986 
3987 


032464 








T1AS: 




; WRITE IDB WITHOUT WRITE ENABLE RING 


3988 












; WRITE 


IDB 


39d9 


032464 


004737 


014114 






J5n 


PCTSTRDV 


.-MAKE SURE READY 


3990 


032470 


103001 








fir r 

BCC 


10$ 


;0K 


3901 


032472 










cRROn 




.•REPORT NOT READY 


3992 


032472 


104460 








TD AD 

TRAP 


C$ERROR 




3993 


032474 


004737 


012464 




10$: 


1 CD 

JSR 


PC.WTIDB 


.WRITE IDB 


399« 


032500 


013737 


002222 


002220 




MAI/ 

now 


DLXRW.DLX 


.SET DELAY CONSTANT FOR WAIT 


3995 


032506 


004737 


013362 






J5n 


PCWWAIT 


.WAIT 


3996 


032512 


004737 


013254 






1 CD 

Jdn 


PCCPYTRR 


.•COPY TR79 REGISTERS 


3997 


032516 


012737 


142632 


002174 




nuv 


*142632,ETRCR 


.•INDICATE EXPECTED RESW.T 


3998 


032524 


012737 


002004 


002176 






#2004,ETRSR 


; INDICATE EXPECTED RESULTS 


3V99 


032532 


023737 


002174 


002164 




Cnr 


ETRCR,ATRCR 


.-TEST COmm REGISTER 


4000 


032540 


001401 








oca 


40$ 


;COmANO REGISTER OK 


4001 


032542 


005202 








INl 


R2 


.INDICATE ERROR 


4002 


032544 








40$: 




#8ir5,ATRSR 




4003 


032544 


042737 


000040 


002166 




oil 


.•CLEAR UNWANTED BJTS 


4004 


032552 


023737 


002176 


002166 




CW 


ETRSR.ATRSR 


;TEST THE STATUS REGISTER 


4005 


032560 


001401 








ocn 
oCVi 


50$ 


; STATUS REGISTER OK 


4006 


032562 


005202 










R2 


; INDICATE ERROR 


400/ 


032564 








50$: 




R2 




4008 


032564 


005702 








lo 1 


:ANY ERRORS? 


4009 


032566 


001404 








OCA 

Bell 


80$ 


:N0 


4010 




000056 






ENUM = 




♦ 1> 


.INCREMENT ERROR COUNT 


«,011 


032570 












ENUM,nWENFL,ERR4 


.•REPORT ERROR 


4012 


032570 


104457 








TOAD 


C$ERS0FT 




4013 


032572 


000056 








LIAOn 

.WURD 


46 




4014 


032574 


023543 








.WHO 


nWfNFL 




4015 


032576 


020064 








• WUkP 


ERR4 




4016 


032600 








80$: 






.RESET TR79 


4017 


032600 


004737 


013324 






1 ct% 


PCCPWR 


4018 


032604 








TIC: 




.'INSTALL WRITE 


ENABLE RING 


4019 


032604 


004737 


013446 






JSR 


PC, TESTC 


:GET WRITE ENABLE RING INSTALLED 


4020 


032610 


004737 


014166 




30$: 


JSR 


PC-TESTNN 


.'WAIT FOR TRANSPORT ON LINE 


4021 


032614 


103004 








BCC 


40i 


.'OK. ON LINE. NO ERROR 


4022 




000057 






ENU« = 


*D<ENU« 


♦ 1> 


.'INCREMENT ERROR COUNT 


4023 


032616 










ERRSOFT ENUM,n2A1,ERR1 


.•REPORT ERROR 


4024 


032616 


104457 








TRAP 


C$ERSOFT 




4025 


032620 


000057 








.WORD 


47 




4026 


032622 


021140 








.WORD 


n2A1 




4027 


032624 


01 '736 








.WORD 


ERR1 




4028 


032626 


004737 


013354 




40$: 


JSR 


PCRWWAIT 


.'WAIT 


4029 


032632 


004737 


013324 






JSR 


PCCPWR 


;RtSET TR79 


4030 


032636 


013737 


002226 


002220 


T1AJ: 


MOV 


DLXBEL.DLX 


;StT 10 SECOND DELAY MULTIPLIER 


4031 


032644 


004737 


013362 






JSR 


PCWWAIT 


.'WAIT 10 SECONDS 



r 7TRAr 


P1 1 




1 1 - OH 

1 1 • wO 




\JJCOJv 










004737 


01P53? 






w III 


OOPOOO 

vvC vW 






001404 








OOOO^iO 




HV J f 












104457 








000060 

wWwOw 














03P67? 


017736 






03P674 






404^ 




032777 

vJC III 


100000 


4044 


032702 

V JC r VC 


001004 




404 S 








4046 








4047 




000061 




4048 


032704 






4049 


032704 


104457 




40S0 


032706 


000060 




40^1 


032710 


022600 






03271 2 


01 7736 

V ■ ■ ■ JW 




405? 


032714 






4054 


032714 


004737 

W~ 1^1 


013324 


4055 


032720 

V JC ' cv 






4056 


032720 


004737 

WW~ ' ■J 1 


014214 


4057 


032724 

V JC ' w~ 


1 03004 




4058 




000061 

WWW 1 




4059 


032726 






4060 


032726 


104457 




4061 


032730 


000061 

www 1 






032732 


021140 




406;^ 


032734 


017736 




4064 


032736 


004737 

1^1 


013354 


4065 


032742 


004737 


013324 


4066 


032746 


004737 


014114 


4067 


032752 


103001 




4068 


032754 






4069 


032^54 


104460 




4070 


032756 






4071 








4072 


032756 


004737 


013324 


4073 


032762 

w Jw • Ww 






4074 


032762 

V JC • vc 


012746 

VIC' ~M 


023221 


4075 


032766 


012746 


020473 

VC V~ ' — / 


4076 


032772 


012746 

VIC* ~w 


000002 

WWW*. 


4077 


032776 

V JC ' ' u 


010600 

V 1 WW 




4078 


033000 


104417 




4079 


033002 


062706 

WC • VW 


000006 

VWVW 


4080 


033006 


013702 

V 1 J ' Vfc 


002230 


4081 


033012 

V J JV ■ w 


005001 

VW w ■ 




4082 


033014 

V«/ JV 1 ~ 


032777 

V Jw III 


002000 

VVfc VV V 


A083 


033022 


001405 




4084 


033024 


005201 




A08S 


033026 


001372 




A086 


033030 


005302 




4087 


033032 


001170 





TEST6 
TIP: 

ENUM 
20S: 



30S: 
T1AK: 

ENun 



10S: 

15$: 
30$: 



40$: 



D 9 

CHECK MANUAL INTERVENTION OPERATIONS 



SEO 107 



JSR PC.OFFLN 

BIT #eiT10,aTRSR 

BEO 20$ 
•D<ENU« ♦ 1> 

ERRSOFT ENUn,nUN0FL«ERR1 

TRAP C$ERSOFT 

.WORD 48 

.WORD nUNOFL 

.WORD ERR1 

BIT #8IT15,aTRCR 

BNE 30$ 



»D<ENUM ♦ 1> 

ERPSOFT ENU«.«0FLEFL,ERR1 



.-TAKE TRANSPORT OFF LINE USING OFF LINE COMNAND 



TRAP 
.WORD 
.WORD 
.WORD 

JSR 



C$ERSOFT 
48 

MOFLEFL 
ERR1 

PC.CPWR 



EXECUTE OFF LINE COWUND 
IF TRANSPORT OFF LINE 
THEN CONTINUE TEST 
INCREMENT ERROR NUMBER 
REPORT ERROR 



IF TR79 ERROR BIT = 1 
THEN CONTINUE TEST 
ERROR BIT SHOULD SET WHEN TAKE UNIT 
OFF LINE OPERATION IS PERFORMED 

INCREMENT ERROR NUMBER 

REPORT ERROR 



JSR PC.TESTN^ 
BCC loi 
•D<ENm ♦ 1> 
ERRSOFT ENUM«M2A1.ERR1 
C$ERSOFT 
49 
M2A1 
ERR1 

PCRtfWAlT 
PCCPWR 
PC,TSTROY 
15i 



.-RESET TR79 
TEST OPERATOR RESET 



TRAP 
.WORD 
.WORD 
.WORU 
JSR 
JSR 
JSR 
BCC 
ERROR 
TRAP 



CSERROR 



JSR 


PCCPWR 


PRINTF 


#FMTTXT.#MRSTU 


MOV 


#«RSTU.-(SP) 


MOV 


fFMTTXT--(SP) 


MOV 


*2,-(SP) 


MOV 


SP,RO 


TRAP 


C$PNTF 


ADD 


«6«SP 


MOV 


DLXT0F,R2 


CLR 


R1 


BIT 


«8IT10,aTRSR 


BEO 


50$ 


INC 


R1 


BNE 


40$ 


DEC 


R2 


BNE 


40$ 



;GET TRANSPORT ON LINE 
• OK 

''INCREMENT ERROR COUNT 
; REPORT ERROR 



WAIT 

TR79 POWER CLEAR 
MAKE SURE READY 
IF NO ERROR THEN CONTINUE TEST 
ELSE REPORT ERROR 



.•REQUEST OPERATOR RESET 
.RESET TR79 

;ASK OPERATOR TO RESET TRANSPORT 



SPECIFY DELAY MULTIPLIER 
SPECIFY DELAY CONSTANT 
IF TRANSPORT IS OFF LINE 

THEN CONTINUE TEST 
TICK 

KEEP CHECKING 

COUNT DOWN MULTIPLIER 

KEEP CHECKING 



CZTRAC.P11 30-0EC-81 11:08 TEST6 CHECK MANUAL INTERVENTION 



LOUR 




oon7S? 








BR 

on 


SOS 


















HI/TV 




















004737 


013354 






JSR - 


PC RUUAIT 




03304? 


004737 


0132S4 

V 1 ^b 






JSR 


PC-CPVTRR 
fl00036 ETRCR 

T IVWW*^Wfk ••»W'» 


HUT J 


03304^ 


012737 


1 00036 


002174 

Wb 1 f ~ 




Mov 


4094 


033054 


01?737 

Vie* ^« 


000001 


002176 

Wb ■ * V 




nov 


#1 .ETRSR 
#100000. ATRCR 


409S 


03306? 


03?737 


1 00000 


002164 

Wb i w~ 




BIT 


4096 


033070 


001001 








BNE 


60S 


4097 


03307? 


005?0? 

W Jb Vb 








INC 


R2 


4098 


033074 








60S: 




#BIT5.ATRSR 


4099 


033074 


042737 


000040 


002166 

Wk I WW 




BIC 


4100 


033102 


023737 


002176 

Wb • » W 


002166 

WW b ' WW 




CUP 


ETRSR.ATRSR 


4101 


033110 


001401 








BEQ 


70S 


4102 


033112 

V-JJ lib 


005202 








INC 


R2 


4103 


033114 








70$: 






4104 


0331 1 4 


005737 


002172 

Wb I « b 






TST 


ATRBA 


4105 


033120 


001401 








BEQ 


SOS 


4106 


0331 22 


005202 

WV^b Vb 








INC 


R2 


4107 


033124 

■ b~ 








SOS: 






4108 


033124 


005737 
001401 


002170 






TST 


ATRUC 


4109 


033130 








BEQ 


90S 


4110 


033132 


005202 

W^b wc 








INC 


R2 


4111 


033134 








90S: 






4112 


033134 


005702 








TST 


R2 


4113 


033136 


001404 








BEQ 

*0<ENU« 


95S 


4114 




000062 

W WWb 






ENun - 


♦ 1> 


4115 


033140 










ERRSOFT ENUM,mRSFL,ER 


4116 


033140 


104457 








TRAP 


CStRSOFT 


4117 


033142 


000062 

W W\^b 








.WORD 


50 


4118 


033144 


023262 








.WORD 


mRSFL 


4119 


033146 


020102 

Wb W 1 Wb 








.WORD 


ERR5 


4120 


033150 


004737 


013324 




95f : 


JSR 


PCCPWR 


4121 
















4122 


0331 54 








T1AL: 




:TEST 
PC.TESTNI 


4123 


033154 


004737 


014214 




T1A6: 


JSR 


4124 


033160 


103004 








BCC 


10S 


4125 




000063 






ENUn = 


•D<ENUn 


^ 1> 


4126 


033162 










ERRSOFT ENUn.nZAl ,ERR1 


4127 


033162 


104457 








TRAP 


CSERSOFT 


4128 


033164 


000063 








.WORD 


51 


4129 


033166 
0331 70 


021140 








,WORD 


n2A1 


4130 


01 7736 








.WORD 


ERR1 


4131 


0331 72 


004737 


013354 




10S: 


JSR 


PC, RUUAIT 


4132 


0331 76 


004737 


013324 






JSR 


PCCPWR 


4133 


033202 


00^737 


014114 






JSR 


PC.TSTRDY 


4134 


033206 


103001 








BCC 


15i 


4135 


033210 










ERROR 




4136 


033210 


104460 








TRAP 


CSERROR 


4137 


033212 


004737 


013324 




15S: 


JSR 


PCCPWR 


4138 


033216 


052777 


000040 


147020 




BIT 


«8IT5,aTRSR 


4139 


033224 


001006 








BNF 


20s 


4140 


033226 


004737 


012416 






JSR 


PCRUIND 


4141 


033232 


004737 


013534 






JSR 


PC.CHEKI 


4142 


033236 


103001 








BCC 


20i 


4143 


033240 










ERROR 





OPERATIONS 

.•REMIND OPERATOR 



SEC 108 



WAIT 

COPY TR79 REGISTERS 
INDICATE EXPECTED RESULT 
INDICATE EXPECTED RESULT 
TEST COmAND REGISTER 
COMMAND REGISTER OK 
NOTE ERROR 

CLEAR BIT 5 (LOAD POINT) 
TEST THE STATUS (INHIBIT BIT) 
OK 

INDICATE ERROR 

TEST BUFFER ADDRESS 
ADDRESS OK 
INDICATE ERROR 

TEST THE WORD COUNT 
OK 

INDICATE ERROR 

ANY ERRORS? 
NO 

; INCREMENT ERROR NUMBER 
; REPORT ERROR 



;TR79 POWER CLEAR 

FUNCTIONS EXECUTED WHILE TAPE IS BEYOND EOT 
;ASK OPERATOR TO PUT TRANSPORT ON LINE 
;0K 

.-INCREMENT ERROR COUNT 
.REPORT ERROR 



WAIT 

TR79 POWER CLEAR 
MAKE SURE READY 
IF NO ERROR THEN CONTINUE TEST 
ELSE REPORT ERROR 

TR79 POWER CLEAR 
IF AT LOAD POINT 
SKIP REWIND 
REWIND 

CHECK REGISTERS 
OK 

REPORT ERROR 



CZTRAf 


P1 1 




11-08 




4144 


033240 


1 04460 






4K5 


033242 








4146 


033242 


004737 


014066 




4147 


033246 


103001 






4148 


033250 








4149 


033250 


104460 






4150 


033252 








4151 


033252 


004737 


013324 




4152 


033256 


004737 


012600 

VIC U V V 




4153 


033262 




000200 


146754 


4154 


033270 


001 774 






4155 


033272 


004737 


015626 




4156 


033276 


103001 






4157 


033300 








4158 


033300 


104460 






4159 


033302 








4160 


033302 


004737 


014066 




4161 


033306 


1C3001 






4162 


033310 








4163 


033310 


1 04460 






4164 


033312 








4165 


033312 


012737 


1 77000 


002214 


416S 


033320 


004737 


013140 




4167 


033324 


004737 


013354 




4168 


033330 


004737 


014066 




4169 


033334 


103001 






4170 


033336 








4171 


033336 


104460 






4172 


033340 








4173 


C33340 


012737 


177700 


002214 


4174 


033346 


004737 


012642 




4175 


033352 


004737 


016002 




4176 


033356 


103001 






4177 


033360 








4178 


033360 


104460 






4179 


033362 








4180 


033362 








4' 81 


033362 


004737 


014066 




4182 


033366 


103001 






4183 


033370 








4184 


033370 


104460 






4185 


033372 








4186 


033372 


004737 


013024 




4187 


033376 


004737 


013354 




4188 


033402 


004737 


013254 




4189 


033406 


012737 


003610 


002174 


419G 


033414 


012737 


002201 


002176 


4191 


033422 


013737 


002214 


002200 


4192 


033430 


023737 


0021 74 


002164 


4193 


033436 


001401 






4194 


033440 


005202 






4195 


033442 








4196 


0334'*2 


023737 


002176 


002166 


4197 


033450 


001401 






4198 


033452 


005202 






4199 


033454 









TEST6 
20$: 

2b$: 



F 9 

CHECK MANUAL INTERVENTION OPERATIONS 
TRAP C$ERROR 



SEO 109 



35$: 



40$: 



50$: 



55$; 
T1A«: 



10$: 



40$: 



50$: 



JSR 
BCC 
ERROR 
TRAP 

JSR 

JSR 

BIT 

BEO 

JSR 

BCC 

ERROR 

TRAP 

JSR 
BCC 
ERROR 
TRAP 

nov 

JSR 

JSR 

JSR 

BCC 

ERROR 

TRAP 

nov 

JSR 

JSR 

BCC 

ERROR 

TRAP 



JSR 
BCC 
ERROR 
TRAP 

JSR 
JSR 
JSR 

nov 

NOV 

nov 

C«P 
BEQ 
INC 

C«P 
BEQ 
INC 



PC.TESTN 
25i 

C$ERROR 

PC.CPWR 
PC.6E0T 
#8IT7.aTRSR 
30$ 

PC.CHEKAG 
35i 

C$ERROR 

PCTESTN 
40$ 

C$ERR0R 

#-1000, USEB 

PC.ERS 

PCRWWAIT 

PC.TESTN 

50i 

C$ERR0R 

«-100,USEB 
PC.URT 
PC.CHKA61 
55i 

C$ERR0R 



PC.TESTN 

loi 

C$ERR0R 

PC.SPR 

PCRUWAIT 

PC. CPYTRR 

f3610.ETRCR 

#2201.ETRSR 

USEB.ETRyC 

ETRCR.ATRCR 

40$ 

R2 

ETRSR.ATRSR 

50$ 

R2 



MAKE SURE ON LINE AND READY 
OK 

REPORT ERROR 



.-FAST FORWARD TO EOT 
; RESET TR79 
iFAST FORWARD TO EOT 
;IF NOT AT EOT 

THEN WAIT 
iCHECK REGISTERS 
;0K 

; REPORT ERROR 

.ERASE AFTER EOT 

.•ENSURE ON LINE AND READY 
;0K 

.•REPORT ERROR 



SPECIFY COUNT FOR ERASE 

ERASE 

WAIT 

ENSURE ON LINE AND READY 
OK 

REPORT ERROR 



.•WRITE AfTER EOT 

ISPECIFY COUNT FOR WRITE 
:WRITE 

; CHECK REGISTERS 
rOK 

; REPORT ERROR 



; SPACE REVERSE AFTER EOT 

; ENSURE ON LINE AND READY 

;0K 

; REPORT ERROR 



SPACE REVERSE 
WAIT 

COPY TR79 REGISTERS 
EXPECTED 
EXPECTED 
EXPECTED 

TEST COffMND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 



rZTRAC.PIl 



30-DEC-81 11:08 



4200 


033454 


005737 


0021 72 




4201 


033460 


001401 






A202 


033462 


005202 






A203 


033464 








A204 


033464 


023737 


002200 


002170 


4205 


033472 


001401 






4206 


033474 


005202 






4207 


033476 








4208 


033476 


005702 






4209 


033500 


001404 






4210 




000064 






4211 


033502 








4212 


033502 


104457 






4213 


033504 


000064 






4214 


033506 


023333 






4215 


033510 


020102 






4216 


033512 








4217 


033512 








4218 


033512 


004737 


014066 




4219 


033516 


103001 






4220 


033520 








4221 


033S20 


104460 






4222 


033522 








A2?3 


033522 


004737 


012756 




4224 


033526 


004737 


013354 




4225 


033532 


004737 


013254 




4226 


033536 


012737 


002204 


002174 


4227 


033544 


012737 


002201 


002176 


4228 


033552 


023737 


002174 


002164 


4229 


033560 


001401 






4230 


033562 


005202 






4231 


033564 








4232 


033564 


023737 


002176 


002166 


4233 


033572 


001401 






4234 


033574 


00520? 






4235 


033576 








4236 


053576 


005737 


002170 




4237 


033602 


001401 






4238 


033604 


005202 






4239 


033606 








4240 


033606 


005702 






4241 


033610 


001404 






4242 




000065 






4243 


033612 








4244 


033612 


104457 






4245 


033614 


000065 






4246 


033616 


023374 






4247 


033620 


020120 






4248 


033622 








4249 










4250 










4251 










4252 


033622 








4253 


033622 


004737 


014066 




4254 


033626 


103001 






4255 


033630 









TEST6 

55$: 

60S: 
ENUM = 



70$: 
T1AN: 



10$: 



20$: 
30$: 
40$: 

ENun 

50$: 
T1A0: 



G 9 

CHECK MANUAL INTERVENTION OPERATIONS 



SEQ 110 



TST 
BEQ 
INC 

CMP 
BEQ 
INC 

TST 
BEQ 



ATRBA 
55$ 

R2 

ETRUCATRUC 

60$ 

R2 

R2 
70$ 



*D<ENUM ♦ 1> 

ERRSOFT ENUn.nSRETFL.ERR5 



TRAP 
.WORD 
.WORD 
.WORD 



JSR 
BCC 
ERROR 
TRAP 

JSR 
JSR 
JSR 

nov 
nov 

C«P 
BEQ 
INC 

cnp 

BEQ 
INC 

TST 
BEQ 
INC 

TST 
BEQ 



C$ERSOFT 

52 

MSRETFL 
ERRS 



PC-TESTN 

loi 

C$ERROR 

PC,RO 

PC.RWUAIT 

PC.CPVTRR 

#2J04.CTRCR 

#2201.ETRSR 

ETRCR.ATRCR 

20$ 

R2 

ETRSR.ATRSR 

30$ 

R2 

ATRyC 

40$ 

R2 

R2 
50$ 



TEST BUS ADDRESS 
OK 

INDICATE ERROR 

TEST THE WORD COUNT 
OK 

INDICATE ERROR 

ANY ERRORS 
NO 

INCRFnENT ERROR NUMBER 
REPORT ERROR 



*D<ENUn ♦ 1> 
ERRSOFT ENUn.nRPETfL,ERR6 
TRAP C$ERSOFT 
.WORD 53 
.WORD NRPETFL 
.WORD ERR6 



.•READ AFTER EOT 

.-MAKE SURE ON LINE AND READY 
;0K 

.REPORT ERROR 



READ 
WAIT 

COPY TR79 REGISTERS 

EXPECTED 

EXPECTED 

TEST COmAND REGISTER 
OK 

INDICATE ERROR 

TEST THE STATUS REGISTER 
CK 

INDICATE ERROR 

TEST THE WORD COUNT 
OK 

INDCATE ERROR 

ANY ERRORS? 
NO 

INCRERtNT error NUMBER 
REPORT ERROR 



.TEST EOF 

JSR PC-TESTN 

BCC loi 
ERROR 



ArTER EOT FUNCTIONS 

.-GET TRANSPORT ON LINE 
;0K 

.•REPORT ERROR 



CZTRAC.PH 



30-DEC-81 11:08 



A256 

4?57 

4258 

4259 

A260 

A261 

A262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 



033630 
035632 
033632 
033636 
033642 
033646 
033652 
033660 
033666 
033674 
033676 
033700 
033700 
033706 
033710 
033712 
033712 
033716 
033720 
033722 
033722 
033726 
033730 
033732 
033732 
033734 

033736 
033736 
033740 
033742 
033744 
033746 
033746 
033746 
033752 
033756 
033762 
033770 
033776 
034004 
034012 
034014 
034016 
034016 
034024 
034026 
034030 
034030 
034034 
034036 
034040 
034040 
034046 
034050 
034052 



104460 

005037 
004737 
004737 
004737 
012737 
012737 
023737 
001401 
005202 

023737 
001401 
005202 

005737 
001 '.01 
005202 

005737 
001401 
00S202 

005702 
001404 
000066 

104457 
000066 
023424 
020102 



002214 
013072 
013354 
013254 
003234 
002211 
002174 



TEST6 
lOS: 



H 9 

CHECK MANUAL INTERVENTION OPERATIONS 



SEO 111 



TRAP CSERROR 



002174 
002176 
002164 



002176 002166 



002172 



002170 



20$: 
3QS: 
40S: 
50$: 

ENun 

60$: 



USEB 

PC.WTEOF 

PC.RUUAIT 

PC-CPVTRR 

#3?34,ETRCR 

#2211.ETRSR 

ETRCR.ATRCR 

20$ 

R2 

ETRSR.ATRSR 
30$ 

R2 

ATRBA 

40$ 

R2 

ATRUC 

50$ 

R2 

R2 
60$ 



CLR 
JSR 
JSR 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 

CMP 
BEQ 
INC 

TST 
BEQ 
INC 

TST 
BEQ 
INC 

TST 
BEQ 

*D<ENU« ♦ 1> 
ERRSOFT ENUM,nUEFETF,ERR5 

TRAP C$ERSOFT 

.WORD 54 

.WORD nUEFETF 

.UORD ERR5 



.WRITE EOF AFTER EOT 

; SPECIFY WORD COUNT 
; WRITE EOF 
;WAIT 

:COPy TR79 REGISTERS 
;EXPECTEO 
; EXPECTED 

TEST COMMAND REGISTER 

;0K 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 



TEST BUFFER ADDRESS 
OK 

INDICATE ERROR 

TEST THE WORD COUNT 
OK 

INDICATE ERROR 

ANY ERRORS 
NO 

INCREMENT ERROR NUMBER 
REPORT ERROR 









T1AP: 




.•TEST 


SPACE REVERSE OVER EOF BEYOND EOT 


004737 


013024 






JSR 


PC.SPR 


.SPACE REVERSE 


004737 


013354 






JSR 


PC.ftUUAlT 


*UAIT 


004737 


013254 






JSR 


PCCPYTRR 


•COPY TR79 REGISTERS 


012737 


003610 


002174 




MOV 


#3610.ETRCR 


.EXPECTED 


012737 


002211 


002176 




MOV 


#2211.ETRSR 


.-EXPECTED 


013737 


002214 


002200 




MOV 


USEB.ETRWC 


; EXPECTED 


023737 


002174 


002164 




CMP 


ETRCR.ATRCR 


.TEST COMMAND REGISTER 


001401 








BEQ 


20$ 


;0K 


005202 






20$: 


INC 


R2 


.'INDICATE ERROR 


023737 


002176 


002166 




CMP 


ETRSR.ATRSR 


.•TEST THE STATUS REGISTER 


001401 








BEQ 


30$ 


;0K 


005202 








INC 


R2 


.•INDICATE ERROR 








30$: 








005737 


002172 




TST 


ATRBA 


:TEST BUFFER ADDRESS 


001401 








BEQ 


40$ 


:0K 


005202 






40$: 


INC 


R2 


.•INDICATE ERROR 


023737 


002200 


002170 




CMP 


ETRWC.ATRWC 


.-TEST THE WORD COUNT 


001401 








BEQ 


50$ 


:0K 


005202 








INC 


R2 


.•INDICATE ERROR 



50$: 



CZTRAC. 


P11 


50-DEC-81 


11:08 




4312 


034052 


005702 






4313 


034054 


001404 






43K 




000067 






4315 


034056 








4316 


034056 


104457 






4317 


034060 


000067 






4318 


034062 


023474 






4319 


034064 


020102 






4320 


034066 








4321 


034066 








4322 


034066 


004737 


012756 




4323 


034072 


004737 


013354 




4324 


034076 


004737 


013254 




4325 


034102 


012737 


002204 


002174 


4326 


034110 


012737 


002211 


002176 


4327 


034116 


012737 


006322 


002202 


4328 


034124 


013737 


002214 


002200 


4329 


034132 


023737 


002174 


002164 


4330 


034140 


001401 






4331 


034142 


005202 






4332 


034144 








4333 


034144 


023737 


002176 


002166 


4334 


034152 


001401 






4335 


034154 


005202 






4336 


034156 








4337 


034156 


023737 


002202 


002172 


4338 


034164 


001401 






4339 


034166 


005202 






4340 


034170 








4341 


034170 


023737 


002200 


002170 


4342 


034176 


001401 






4343 


034200 


005202 






4344 


034202 








4345 


034202 


005702 






4346 


034204 


001404 






4347 




000070 






4348 


034206 








4349 


034206 


104457 






4350 


034210 


000070 






4351 


034212 


023474 






4352 


034214 


020102 






4353 


034216 








4354 










4355 


034216 








4356 


034216 


004737 


014066 




4357 


034222 


103001 






4358 


034224 








4359 


034224 


104460 






4360 


034226 








4361 


034226 


032777 


000200 


146010 


4362 


034234 


001024 






4363 


034236 


012777 


002000 


146000 


4364 


034244 


001006 






4365 


034246 


004737 


012416 




4366 


034252 


004737 


013534 




4367 


034256 


103001 







TES76 
ENUn 



60S: 
TIAQ: 



20$: 
30S: 
40S: 
50$: 

ENun 

60$: 
TIO: 

10$: 
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CHECK MANUAL INTERVENTION OPERATIONS 



SEO 112 



TST R2 
BEQ 60$ 
»D<ENUH ♦ 1> 

ERRSOrT ENUn.HREFETF.ERRS 
TRAP C$ERS0FT 
.WORD 55 
.WORD HREFETF 
.WORD ERRS 



ANY ERRORS? 
NO 

INCREMENT ERROR NUMBER 
REPORT ERROR 



JSR 


PC,9D 


JSR 


PC.RWWAIT 


JSR 


PC CPYTRR 


MOV 


#2204.ETHCR 


MOV 


#2211 ,ETRSR 


MOV 


#INPUT,ETR8A 


MOV 


USE6.ETRUC 


CMP 


ETRCR.ATRCR 


BEQ 


20$ 


INC 


R2 


CMP 


ETRSR.ATRSR 


BEQ 


30$ 


INC 


R2 


CMP 


ETRBA.ATRBA 


BEQ 


40$ 


INC 


R2 


CMP 


ETRWCATRWC 


BEQ 


50$ 


INC 


R2 


TST 


R2 


BEQ 


60$ 



'D<ENUM ♦ 1> 
ERRSOFT ENUM«MREFETF,ERRS 
TRAP C$ERS0FT 
.yORD 56 
.WORD MREFETF 
.yORD ERRS 



.READ EOF BEYOND EOT 
;READ 
;WAIT 

;C0PY TR79 REGISTERS 
;EXPECTED 
;EXPECTED 
;EXPECTED 
^EXPECTED 

TEST COMMAND REGISTER 
;0K 

INDICATE ERROR 

TEST THE STATUS REGISTER 
OK 

INDICATE ERROR 



TEST BUFFER ADDRESS 
OK 

INDICATE ERROR 

TEST THE WORD COUNT 
OK 

INDICATE ERROR 

ANY ERRORS? 
NO 

INCREMENT ERROR NUMBER 
REPORT ERROR 



JSR 
BCC 
ERROR 
TRAP 

BIT 
BNE 
BIT 
BNE 
JSR 
JSR 
BCC 



PCTESTN 
10$ 

C$ERR0R 



.-TEST TR79 RESET WHILE REWINDING 

.-MAKE SURE ON LINE AND READY 
:0K 

.•REPORT ERROR 



#8IT7.aTRSR 
40$ 

#BIT10.aTRSR 
20$ 

PCRWIND 
PC.CHEKI 
20$ 



.POSITION TAPE AT EOT 
;IF AT EOT 

THEN OMIT REWIND AND GO EOT 
;IF AT LOAD POINT 

THEN OMIT REWIND 
; REWIND 

; CHECK REGISTERS 
;0K 
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TESr6 CHECK MANUAL INTERVENTION OPERATIONS 



SEQ 115 



4368 


034260 








4369 


034260 


104460 






4370 


034262 








4371 


034262 


004737 


014066 




^.372 


034266 


103001 






4373 


034270 








4374 


03^.270 


104460 






4375 


034272 








4376 


034272 


004737 


012600 




4377 


034276 


012777 


000200 


145740 


4378 


034304 


001774 






4379 


034306 








4380 


034306 


004737 


013324 




4381 


034312 


004737 


012416 




4382 


034316 


004737 


013354 




4383 










4384 


034322 


052777 


004000 


145712 


4385 


034330 


004737 


013254 




4386 


034334 


012737 


004020 


002174 


4387 


034342 


012737 


000001 


002176 


4388 


034350 


023737 


002174 


002164 


4389 


034356 


001401 






4390 


034360 


005202 






4391 


034362 








4392 


034362 


023737 


002176 


002166 


4393 


034370 


001401 






4394 


034372 


005202 






4395 


034374 








4396 


034374 


005737 


0021 72 




4397 


034400 


001401 






4398 


034402 


005202 






4399 


034404 








4400 


034404 


005737 


002170 




4401 


034410 


001401 






4402 


034412 


005202 






4403 


034414 








4404 


034414 


005702 






4405 


034416 


001404 






4406 




000071 






4407 


034420 








4408 


034420 


104457 






4409 


034422 


000071 






4410 


034424 


022621 






4411 


034426 


020102 






4412 


034430 








4413 


034430 








4414 


034430 
034434 
034440 


012746 


023771 




4415 


012746 


020473 




4416 


012746 


000002 




4417 


034444 


010600 






4418 


034446 


104417 






4419 


034450 


062706 


000006 




4420 


034454 








4421 


034454 








4422 


034454 


104401 






4423 











20$: 

25$: 

30$: 
40$: 



50$: 
60$: 
70$: 
80$: 

ENun 

90$: 



ERROR 

TRAP C$ERR0R 

JSR PC.TESTN 

see 25i 
ERROR 

TRAP CSERROR 

JSR PCGEOT 

BIT #BIT7,aTRSR 

BEQ 30$ 

JSR PCCPUR 

JSR PC«RUIND 

JSR PCRUUAIT 

BIS #BIT11.aTRCR 

JSR PC.CPYTRR 

MOV #4020.ETRCR 

MOV #1,ETRSR 

CMP ETRCR,ATRCR 

BEQ 50$ 

INC R2 

CMP ETRSR.ATRSR 

BEQ 60$ 

INC R2 

TST ATRBA 

BEQ 70$ 

TMf R2 



.•REPORT ERROR 

;AT LOAD POINT 

;MAKE SURE ON LINE AND READY 

;0K 

; REPORT ERROR 



;60E0T 



;FAST FORWARD TO EOT 
.-WAIT FOR EOT 



TST 
BEQ 
INC 



ATRUC 

80$ 

R2 



TST R2 

BEQ 90$ 

*D<ENUM ♦ 1> 

ERRSOFT ENUM.MRUOFL.ERRS 

TRAP C$ERS0FT 

.WORD 57 

.WORD ilRUOFL 

.UORD ERRS 



.-REWIND FROM EOT 

.-PRELimNARV TR79 RESET 

.-REWIND 

:WAIT 

.RESET WHILE REWINDING 
.RESET TR79 
;COPy REGISTERS 
.•EXPECTED 
.-EXPECTED 

.•TEST COWAND REGISTER 
;0K 

.•INDICATE ERROR 

;TEST STATUS REGISTER 
;0K 

: INDICATE ERROR 

.-TEST BUS ADDRESS REGISTER 
'OK 

•INDICATE ERROR 

.-TEST COUNT REGISTER 
• OK 

•INDICATE ERROR 

.ANY ERRORS? 
;N0 

.-INCREMENT ERROR NUMBER 
.REPORT ERROR 



LI 0026: 



PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

ENDTST 
TRAP 



#F«TTXT.#MEOT 

#«EOT.-(SP) 

*F«TTXT,-(SP) 

#2.-(SP) 

SP.RO 

C$PNTF 

#6.SP 



C$ETST 



.REPORT REWINDING. GOING OFF LINE 



C2TRAC.P11 30-DEC-81 11:08 
4425 
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TEST6 CHECK MANUAL INTERVENTION OPERATIONS 
.SBTTL HARDWARE PARAMETER CODING SECTION 



CZTRAC.Pn 



4426 

4427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 



30-DEC-81 11-08 



4461 
4462 
4463 
4464 
4465 



034456 
034456 
034460 
034460 
034460 
034462 
034464 
034466 
034470 
034470 
034472 
034474 
034476 
034500 
034500 
034502 
034504 
034506 
034510 
034512 

034512 



034512 
034540 
034571 



000015 



000031 
034512 
164000 
175500 

001031 
034540 
000170 
000174 

002032 
034571 
000340 
000004 
000007 



042504 044526 042503 
042504 044526 042503 
104 053105 041511 
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HARDWARE PARAMETER CODING SECTION 

//////////////////////////////////////////////////////////////////////////// 

/ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

/ THAT ARE USED Br THE SUPERVISOR TO BUILD P-TABLES, THE 

/ MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

/ INTERPRETED BV THE SUPERVISOR AS DATA STRUCTUHtS. THE 

/ MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

/ WI TH THE OPERATOR 

/////////////////////////////////////////////////////////////////////////// 



SEO 115 



L SHARD: 



LI 0027: 



.NLIST 

ADORES 

VECTOR 

PRIRTy 

.LIST 

.EVEN 



8GNHRD 

.WORD Ll0027-L$HARD/2 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

ENOHRD 

.EVEN 

.EVEN 

BEX 

.ASCJZ 

.ASCIZ 

.ASCiZ 

BEX 



ADDRES, 0.0. 164000 J 75500, YES 

TSCODE 

ADDRES 

TSLOLIM 

TSHILIM 

VECTOR. 2. 0.170. 174. YES 

TSCODE 

VECTOR 

TSLOLIM 

TSHILIM 

PRIRTY.4.0.340.4.7.YES 

TSCODE 

PRIRTY 

340 

TSLOLIH 
TSHILIM 



/DEVICE CSR ADDRESS : / 
/DEVICE VECTOR ADDRESS : / 
/DEVICE PRIORITY LEVEL : / 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



1 



CZTRAC.P11 



4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

<«477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 
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4494 
4495 
4496 
4497 



034622 
034622 
034624 
034624 
034624 
034626 
034630 
034630 
034632 
03s S34 
034o36 
034640 
034642 

034642 



034642 
034724 
034775 
035061 
035130 
035205 



000007 



000003 
034642 

000052 
035206 
M7777 
000000 
000764 



042524 
042524 
124 
127 
047105 
000 



052123 
052123 
042510 
046111 
042524 



020064 
020065 
043040 
020114 
020122 
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SOFTWARE PARAMETER CODING SECTION 

////////////////////////////////////////////////////////////////'/////////// 

/ THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

/ THAT ARE USED BY THE SUPERVISOR TO BUILD P-TA6LES. THE 

/ MACROS ARE NOT EXECUTED AS MACHINE INSTKUCTIONS BUT ARE 

/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

/ MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

/ WITH THE OPERATOR. 

//////////////////////////////////////////////////////////////////'//////// 



SEO 116 



LSSOFT: 



L 10030 : 



SFTTXT! 



B6NSFT 

.WORD L10030-LSSOFT/2 

DISPLAY SFTTXT 

.WORD TSCODE 

.WORD SFTTXT 

6PRMD WCOUNT.O.D, 177777. 0.500., YES 

.WORD TSCODE 

.WORD WCOUNT 

.WORD y77777 

.WORD TSLOLIM 

.WORD TSHILIM 

ENDSFT 

.EVEN 



.NLIST BEX 

.ASCIZ /TEST4 REPEATEDLY WRITES A 15 BLOCK FILE TO TAPE. / 

.ASCIZ /TEST5 READS THE FILES WRITTEN BV TEST4. / 

.ASCn /THE FOLLOWING ENTRY SPECIFIES HOW MANY FILES TEST4 

.ASCIZ /WILL WRITE. THE DEFAULT IS 10. FILES. / 

.ASCIZ /ENTER 0 TO WRITE FILES UNTIL EOT IS REACHED / 

.BYTE 0 



035206 042522 042520 052101 WCOUNT: .ASCIZ /REPEAT COUNT FOR TESr4 (0-500.), 0=REPEAT TO EOT / 



.LIST 
.EVEN 



BEX 



.SBTTL PATCH AREA FOR DEBUG 



CZTRAC.P11 



30-DEC-81 11:08 



4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 



035270 

035370 
035372 
035374 



035376 
035376 

035376 
035400 
035402 



035370 
000240 
000240 
000240 



000000 
000000 



000001 
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PATCH AREA FOR DEBUG 
PATCH: 

.=.♦100 
NOP 
NOP 
NOP 

.S8TTL "ENOJiOD" & "LASTAD" 
ENOnOD 
LASTAD 
.EVEN 
.UORD 0 
.WORD 0 

LSLAST: : 

:* NOTE: LAST ADDRESS STORAGE APPENDED 
.END 



SEC 117 



i 



C2TRAC. 


Pll 30-DEC-81 


11 .08 




CROSS 


REFERENCE 


TABLE 


ADDRES 


03A512 


4441 


4460* 








ADR = 


000020 G 


581* 








2138 


A INPUT 


002204 


726# 


1301* 


1691* 


1694* 


ASSEnB= 


000010 


319 










ATRBA 


002172 


72MI 


1350 


1386 


1422 


1461 


1940 


2792 


2862 


3220 


4104 


ATRCR 


002164 


71 8# 


990 


nil 


1138* 


113y 


1571 


1606 


1638 


1674 


1716 






2645 


2686 


2717* 


2740 


2784 






4296 


4329 


4388 


1167 


1272 


ATRSR 


002166 


71 9# 


1115 


1143 




1642 


1678 


1720 


1763 


1801 






2745 


2788 


2858 


3021 


3215* 






4300 


4333 


4392 






ATRWC 


002170 


720* 


1354 


1390 


1426 


1465 




1809 


1841 


1871 


1903 


1944 






4341 


4400 








BAOOUT 


002256 


771M 


1728 


3565 






BGL = 


004000 


686* 






838 


842 


BITO = 


000001 G 


554* 


822 


826 






915 


919 


930 


934 


945 






3199 










BITOO = 


000001 G 


543* 


554 








BIT01 = 


000002 G 


542* 


553 








BIT02 = 


000004 G 


541* 


552 








BIT03 = 


000010 G 


540* 


551 








BIT(K = 


000020 G 


539* 


550 








BIT05 = 


000040 G 


538* 


549 








BIT06 = 


000100 G 


537* 


548 








BIT07 = 


000200 G 


536* 


547 








BIT08 = 


000400 G 


535* 


546 








BIT09 = 


001000 G 


534* 


545 








BIT1 = 


000002 G 


553* 


1104 








BIT10 = 


002000 G 


533* 


1050 


1195 


1236 


2734 


BIT11 = 


004000 G 


532* 


2709 


2714 


2725 


4384 


BIT12 = 


010000 G 


531* 


2843 








BIT13 = 


020000 G 


530* 


2843 








BITK = 


040000 G 


529* 










BIT15 = 


100000 G 


528* 


1048 


4043 






BIT2 = 


000004 G 


552* 


1077 


1088 


3957 


3968 


BIT3 = 


000010 G 


551* 










BIU = 


000020 G 


550* 










BITS = 


000040 G 


549* 


1106 


2536 


2631 


2668 


BIT6 ' 


900100 G 


548* 


2283 


2380 


2509 


2510 


BIT7 = 


000200 G 


547* 


1052 


4153 


4361 


4377 


BITS = 


000400 G 


546* 










BIT9 = 


001000 6 


545* 










BOE = 


000400 G 


585* 










Busr = 


000040 


661* 










CHEKAC 


014776 


1409* 


3308 








CHEKAD 


015142 


1447* 


3384 








CHEKAE 


015316 


1486* 


3449 








CHCKAF 


015462 


1523* 


3514 








CHiKAG 


015626 


1560* 


4155 








CHEKAV 


016122 


1633* 


3063 


3853 






CHEKAW 


016262 


1668* 


3090 







B 10 






























SE 


USER SYMBOLS 














2160 




















1579 


1646 


1682 


1730 


1767 


1805 


4700 


4?7? 


4304 


4337 


4396 








1163 


1268 


1342 


1378 


1414 


1453 


1491 


1528 


1759 


1797 


1833 


1863 


1895 


1926 


2204 


2407 






3211 


3999 


4095 


4192 


4228 


4264 


1346 


1382 


1418 


1457 


1495 


1532 


1575 


1610 


1837 


1867 


1899 


1930 


2411 


2649 


2690 


2744* 


3216 


4003* 


4004 


4099* 


4100 


4196 


4232 


4268 


1503 


1540 


1583 


1614 


1650 


1686 


1734 


1771 


2796 


2866 


3224 


4108 


4204 


4236 


4276 


4308 


854 


858 


870 


874 


884 


888 


899 


903 


949 


959 


963 


974 


977 


2603 


2841 


3195 


4034 


4082 


4363 












2764 


281 S 


/ AAV 

4003 


40y9 


4138 








2520 


2521 


2949 


3641 


3824 


3955 
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rii 30-DcC-Ol 


1 1 • AQ 

1 1 :0o 






REFERENCE 


TABLE 




ni L.I L.f\ 


1 f 1 cm 


7QA7 








CHcKAY 


01 00 JO 


1 7C/ « 










rue V A 7 


U 1 rUU<: 


1 70Ai* 


300 1 




330 1 


X^X7 


CHEKCX 


017156 


1 0 oo* 


7AA7 

3003 


75BC 

3co5 


CHtKDX 


U 1 ^^<:^^0 


1 flCO* 


3f cO 




771 S 

Jf 1 5 




r Lie V 


ni 7/ 1 iL 
Ui ^^hIO 


1 flOA* 

1 oVO* 


3tT0 


7775 


3188 




01 f 5*»0 




?fl7A 
cOjO 


5oon 

cttU 


71 5X 

5 1 c5 




015>J*» 


1 1 ATir 


■5705 


c5*»U 


COJ5 


5<^75 
cO» c 






7^<^7 
jMOf 


7^X1 

J5 J 1 


JDD 1 


rue V 1 
CHcKJ 


01 jOOh 


1 1 XXM 


CJJJ 










AI T7CA 

01 Jf^JO 


1 1 CO* 


71 50 

3 1 CT 






X1 1 A 

J I 1 D 


rue 


01«ic j«i 






5Qfl5 
CtOc 


5W5"» 






1 JQ7M 


7771 


7S77 








0 1 hhOO 






7fl77 

3of f 






CHEKU 


0U506 


1 3^o* 


71/.5 
3 


77A5 
3r OC 










1 '<7Tif 


71 <C 
3 1 55 


77A1) 
3r 00 


XRQ? 

JOtC 




ru^ Ar i 


AI iLAA3 

01 OOOc 


1 A.f\^M 
\Q\JCm 


Z1 7^ 










AI XLL'i 


1 nnn 

1 000 


1 n/^xn 


CwHt 






trwH 


AI 

01 JJCM 


1 AAOif 


1157 


1 1 

! 1 5U 


1^X0 
1 •i5t 






5ZZ,A 

£*»*»0 


5C7S 
C530 


5A5^ 
cOcH 


OKXX 
c0j3 






xnxx 


jUtO 


71 AI 

3101 


X5X7 
3c5f 


X5^1 
5c*» 1 






jocO 


jt05 


^01 7 


^n5Q 

Hvcy 


H U5*» 


rDV TDD 




TOT* 


1 inn 

1 1 vO 


11XS 


1 1f^O 

1 1 OV 


1 CO J 






1 OjH 


1 AAO 
1 ODT 


171X 




170? 
: f yc 






c ' JO 


57an 

CI o\t 


CO"»T 


cOO J 


CTvC 
















niDrtv — 














rCAii — 

L*AU - 




J 1 ym 










r CAi iTn— 


UUUUO 1 


J 1 rm 


5X1 1 

CJ 1 1 








rCAD^ — 
LmJNK - 


UUUUcc 


J 1 T» 


1 U05 








r coccc— 




J 1 T* 










L«OoUD— 


UUVUUc 


J 1 T* 










L»Lcr o- 


UUW*» J 


J 1 T* 










rtri rir — 




J 1 T* 












AAAAI 0 
UUwv 1 C 


J 1 T* 


5X5A 








rtn nc— 
L»LLUo- 




71 0# 

J 1 T* 










rcri D1 — 


no/wv> 
uvuwo 


J 1 T* 










L*LVCL- 


UUUU jO 


J 1 T» 














J 1 T» 












AAAOSI 


71 

J 1 T» 










rcnDDT- 


AAAnOA 


J 1 Tff 










r cm 1 - 




J 1 Tw 










rccn I T- 




J 1 TW 


Ain 








r ceonc - 
L»cKur - 


OUUU33 


J 1 TW 










rCCDUD— 


A/VV\CA 
0UW3O 


J 1 T* 












uuuuou 


J 1 TW 


c 300 


c5t5 


9^ no 

c*»wU 








COOU 


570 
c r DC 


5771 

CI 1 1 


CI 1 V 


5ft1 X 

CO 1 J 






CTTJ 


5Q00 

t TTT 


5vUO 


Xflll 

5U 1 1 


xnxfl 

JvJO 








71 OA 
5 1 UO 


7117 


7110 
5 1 1 T 


71 5 A 
5 1 CO 






71H^ 


7101 

J 1 T 1 


5C*» J 


75SX 

JC JJ 


5C Jo 






xx^ 1 


7X51 


55CT 


XXX^ 
jjj^t 


7X^0 
JJ^tv 








3405 


3410 


3416 


3421 






3481 


3486 


3493 


3498 


3505 






3562 


3570 


3577 


3584 


3591 






3699 


3707 


3712 


3718 


3723 






3792 


3830 


3838 


3843 


38^9 



C 10 

S£Q 

UStR SYMBOLS 



3502 3704 



3273 


3349 


3425 


3490 


3554 


3686 






2768 


2818 


2971 


3043 


3077 


3105 


3170 


3250 


3789 


3835 

J9JJ 


3909 


4141 


4366 








3181 


3261 


3337 


3413 


3478 


354' 


3672 




1515 


1552 


17*6 


1783 


1821 


2038 


2382 


2390 


2661 


2670 


2757 


2766 


2808 


2879 


2950 


2969 


3317 


3393 


3458 


3522 


3573 


3587 


3605 


3652 


4065 


4072 


4120 


4132 


4137 


4151 


4380 




1339 


1374 


1410 


1448 


1487 


1524 


1568 


1603 


1830 


1860 


1891 


1923 


2404 


2612 


2642 


2683 


3014 


3207 


3996 


4092 


4188 


4225 


4261 


4292 


253<» 


2543 


2549 


2599 


2629 


2638 


2666 


2675 


2821 


2827 


2832 


2839 


2964 


2974 


2979 


2985 


3046 


3051 


3057 


3066 


3072 


3080 


3085 


3093 


3132 


3138 


3145 


3151 


3158 


3165 


3173 


3178 


3264 


3269 


3276 


3281 


3288 


3293 


3299 


3304 


3345 


3352 


3357 


3364 


3369 


3375 


3380 


3387 


3428 


3433 


3440 


3'.45 


3452 


3462 


3470 


34^5 


3510 


3517 


3526 


3534 


3539 


3545 


3550 


35j7 


3596 


3604 


3656 


3664 


3669 


3675 


3680 


3687 


3729 


3734 


3745 


'753 


3758 


3765 


3771 


3786 


3856 


3868 


3876 


3886 


3906 


3912 


3992 


4069 
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4136 


4144 


4149 


4158 


4163 


CSERSF: 


OOOOSA 


31 9# 








2455 


CSERSOs 


000057 


31 9# 


2419 


2429 


2446 


2617 


2657 


2698 


2718 


2729 






3647 


3980 


4012 


4024 


4038 






4349 


4408 








C$ESCA= 


000010 


31 9# 










CSESEG= 


000005 


31 9« 










CSESUB= 


000003 


31 9# 






3609 


3802 


C$£TST= 


000001 


31 9« 


2345 


2915 


C$EXIT= 


000032 


31 9# 










ciGETB= 


000026 


31 9f 










CSGETWs 


000027 


31 9# 










CSGnAN= 


000043 


31 9# 










C$GPHR= 


000042 


31 9# 


2268 








CSGPLO- 


000030 


31 9# 










C$GPRI= 


000040 


31 9# 










CSINIT= 


000011 


31 9# 


229? 








CSINLP^ 


000020 


31 9# 










CSnANI= 


000050 


31 9# 










CSHEH = 


000031 


31 9# 








2070 


csnsG = 


000023 


31 9# 


1999 


2016 


2055 


CSOPEN= 


000034 


31 9# 








2165 


CSPNTB= 


000014 


31 9# 


2035 


2047 


2143 


C$PNTF= 


000017 


31 9# 


1084 


1248 


3964 


4078 


C$PNTS= 


000016 


31 9# 










CSPNTX= 


000015 


31 9# 










CSOIO = 


000377 


31 9# 










c$Roeu= 


000007 


31 9# 










C$REFG= 


000047 


31 9# 










C$RESE= 


000033 


31 9# 


2705 








C$REVI= 


000003 


31 9# 


409 








C$RFLA= 


000021 


31 9# 










CSRPT = 


000025 


31 9# 










CSSEFG= 


000046 


31 9# 










CfSPRI= 


000041 


31 9# 


2282 


2508 


2609 


2623 


CfSVtC= 


000037 


31 9# 


2290 








CfTPRI= 


000013 


31 9# 










DFPTBL 


002142 6 


486# 










OIAGnC= 


000000 
002220 


319 








2723 


OLX 


738# 


1019* 


1022* 


1024 


DLX8EL 


002226 


741# 


4030 








DLXLNG 


002232 


743# 


3193 








DLXPWR 


002224 


740# 


2721 








OLXRW 


002222 


7Z90 


1022 


2847 


3061 


3994 


OLXTOF 


002230 


7A2» 


1019 


1086 


1234 


3966 


ooiir 


013206 


974# 


2554 








EF.CON= 


000036 G 


561# 










EF.NEW= 


000035 G 


562f 










EF.PWR= 


000034 G 


563# 










EF.RES= 


000037 6 


560# 










EF.STA= 


000040 G 


559# 










E INPUT 


002206 


727» 


1302* 


1690* 


2137 


2159 


E«UH = 


000061 


404 7# 










fc«2 


020766 


1199 


22570 








E«2A 


021040 


1209 


2043 


22570 







0 10 
- USER SYMBOLS 



4171 


4178 


4184 


4221 


4256 


4359 


4369 


437/ 


2464 


2473 


2483 


2i91 


2500 


2514 


2525 


25 j9 


2753 


2804 


2S7^ 


2889 


2906 


2956 


3029 


3232 


4049 


4060 


4116 


4127 


4212 


4244 


4284 


4316 


3916 


4422 














208S 


2100 


2115 


2129 


2148 


2170 







2192 2211 2223 
4418 



2847* 3061* 3994* 4030* 
4080 



£ 10 
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CROSS RfcfERENCE 


TABLE 


USER SYMBOLS 














CM/ A 


021002 


2217M 


2431 


2958 


3649 




















EMo 


021630 


22370 


2891 

C U 7 1 


























021551 


22Z70 


2908 
























tNOEnB 


020464 


2220 

k b V 


22570 
























END IN 


0241 76 


2293 


22950 
























ENDT4 


032036 


3793 


37994r 
























ENlfl = 


000071 


696# 


1121* 




1 1 7i0 


1175 


1 1 AO M 

1 198* 


1200 


1208* 


1210 


1278* 


1280 

1 Cvv 


1309* 


Mil 






13604^ 


1362 




1398 


1433# 


1 y 7C 
1435 




1474 


1509* 


1511 


1546* 


1548 


1589* 

1 Jvr90 






1591 


1620# 


lode 


1636# 


1658 


1699f 


l70l 


1740* 


1742 


^7770 


1779 


1815* 


1817 






1847# 


1849 




1 0 70 

1879 


1909# 


1911 


f950# 


1952 


2^*^70 


2420 


2427* 


2430 


2444* 






2447 


2456 


2465 


2h7^ 


2481 /V 


2484 


2492 


2501 


2512* 


2515 


2523* 


2526 


2557* 

C ^v » ~ 






2560 


261 5# 


2618 


26550 


2658 


2696* 


1Z AA 

2699 


2716* 


2719 


27270 


2730 


2751* 


2754 






2802# 


2805 


COfdm 


2875 


2887# 


10AA 

2890 


2904# 


2907 


2954* 


2957 


3027* 


?0?0 








3233 


3645# 


3648 


59700 


3981 


4010* 


/ Ai V 

4013 


4022* 


4025 


4036* 


4039 


4047 


^050 






4058# 


4061 


41 14* 


y 1 1 7 

4117 


4125# 


/ 4 10 

4128 


y n Am 

A210# 


4213 


4242* 


4245 


(t2B20 










4317 


434 7# 


4350 


/ / AZ. Jl 


4409 












EOF F 


AAAA1 A 


678# 


























EOTS = 


AAAOAA 


682# 


























cHASc - 


AAAA1 it 


641# 


962 
























C DDO f T — 




671# 


























ERPBLK 


QOcloc G 


716# 


1125* 


1 1 ff* 


1 01 T A 

1c13* 


1282* 


1313* 


1364* 


1400* 


1437* 


1476* 


1513* 


1550* 


1593* 






1624* 


1660* 




1 7/ / A. 

1 7HH* 


1781* 


1 010«i 




1881* 


1913* 


1954* 










AAO^^A /■ 


71 5# 


1124* 


1176* 


1 1 AOa 

nvv* 


1209* 


1281* 


1312* 


1363* 


1399* 


1416* 


1475* 


1512* 








1592* 


1623* 


7659* 


1 7AOa 

1 70^* 


1743* 


1780* 


1818* 


1850* 


1880* 


1912* 


1953* 


cRRNBn 


AA^i CX 


71 4# 


1123* 


1175* 


1 OAAa 

1200* 


1210* 


1280* 


1311* 


1362* 


1598* 


1435* 


1474* 


1511* 








1591* 


1622* 


lo58* 


1 7A1 A 

1 701* 


1742* 


1 77Aa. 

1779* 


1 ai 7 a 

1817* 


1849* 


1879* 


1911* 


1952* 


EHRTTP 




71 3# 


1122* 


1 i 7/ A 


1212* 


1279* 


1 74 Aa 

1310* 


1 7X1 A 

1361* 


1397* 


1434* 


1473* 


1510* 










1621* 


1657* 


1 7AAa 

1 700* 


1 7y 1 A. 
1 7h 1 * 


1778* 


1 ft 1 X A. 

1516* 


1848* 


1878* 


1910* 


1951* 




ERR 1 


017^36 G 


1995# 


3983 


4027 


/ Ay 1 

4041 


4052 


4063 


/ 4 9A 

4130 








cRR 1 1 


A^AI TX ^ 


2108# 


2892 






















u<:uiou u 


2122# 


2909 
























CDDi / 


{)CV£U£ G 


1313 


2135* 
























CDDI C 

cRR 1 J 


OcO^H* G 


1703 


2154# 




























2011# 


2432 




3650 




















ERR3 


017754 G 


1213 


20260 






















ERR4 


020064 G 


1125 


1177 


1282 


2064# 


2422 


2562 


2660 


2701 


2756 


3032 


401 S 






cRR5 


QcOlOc G 


1364 


1400 


1 / T7 


1 y 7^ 

1476 


1513 


1 C C A 

1550 


4 CAT 

1593 


1660 


1744 


1781 


1819 


1954 


2079* 






2807 


2877 


3^33 


y 1 1 Q 


4215 


/ oa7 

HCOf 


y Ti A 

4319 


4352 


4411 




CDDiL 


vcVfcv u 


1624 


1851 


loei 


1Q1 Y 
1713 


2094# 


/ O/ 7 

4247 
















CDC 
C01 


013140 


959# 


2835 




n oo 
31 ee 


3187 


7O70 

3272 


3348 


3424 


3489 


3553 


3683 


^ l%M* 






U 1 ' f^JO 
A177//. 


1996# 
201 2# 


























cox 


A1 77<Z. 


2013 


20270 


























Wc cvc 


725# 


1377* 


1 TBiL 
1300 


1 Z 1 
IH 13* 


1422 


1 y CI « 
1h51 • 


1 / XI 

1h61 


1672* 


1682 


1729* 


1795* 


1805 


1939* 




002174 


2852* 


2862 


coo6* 


T01 A* 

3clO* 


3220 


y T07a 
^3<7* 


/ 777 

h337 








7220 


1109* 


1111 


1 1 lit* 

11 36* 


1139 


1 1 XI A 
1 161* 


1 1X7 

1 163 


1266* 


1268 


1340* 


1342 


1375* 


1378 






1411* 


1414 


IZZQ* 


1h53 


1488* 


1 y oi 

1^71 


1 COC* 

1 5c5* 


1528 


1569* 


1571 


1604* 


1606 


1635* 






1638 


1670* 


1iL7Z 

167h 


1 71 / A 

1 71^* 


1716 


1 7CX A 

1 756* 


1 7ca 
1 759 


1793* 


1797 


1831* 


1833 


1861* 


1863 






1892* 


1895 


1O0Z* 
I7C** 


1 QOZ. 
17^6 


2205 


oy AC* 
<;405* 


0/ A7 


2643* 


2645 


2684* 


2686 


2738* 


2740 






2781* 


2784 


3BCA* 


OBCZ 

£05h 


3015* 


7m 7 

jUI 7 


3cOo* 


3211 


3997* 


3999 


4093* 


4189* 


4192 




002176 


4226* 


4228 




"♦cot 


4293* 


•♦C70 


HjCJ 


4329 


4386* 


4388 


ETRSR 


7250 


1110* 


1115 


1137* 


1143 


1162* 


1167 


1267* 


1272 


1341* 


1346 


1376* 


1382 






1412* 


1418 


1450* 


1457 


1489* 


1495 


1526* 


1532 


1570* 


1575 


1605* 


1610 


1636* 






1642 


1671* 


1678 


1715* 


1720 


1757" 


1763 


1794* 


1801 


1832* 


1837 


1862* 


1867 






1893* 


1899 


.925* 


1930 


2406* 


2411 


2644 • 


2c 9 


2685* 


2690 


2739* 


2744 


27%2* 






2788 


2851* 


2858 


3016* 


3021 


3209* 


3216 


3998* 


4004 


4094* 


4100 


4190. 


4196 
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ET UC 002200 



EVL = 
:$END : 
ElLOAD= 
FHTRGl 
FMTTXT 
FHT31 
F«T51 
F«T52 
FNBOO = 
FNeOI = 
FNe02 = 
FNe03 = 
FPTS = 
FSAU = 
F$AUTO= 
FSSGN = 



FSCLEA: 
F$OU = 
FSENO = 



OOOOOA G 

002100 

000035 

022103 

020473 

020500 

020566 

020653 

000002 

000004 

000010 

000020 

000004 

000015 

000020 

000040 



000007 
000016 
000041 



FSHARO= 000004 
F$HU = 000013 
F$INIT= 000006 
FSJHP = 000050 
F$«00 = 000000 
FMS6 = 000011 



F$PR0T= 

FSPWR = 

FSfiPT = 

F$SEG = 

F$SOFT= 

F$SRV = 

FSSUB = 

F$SW = 

F$TEST= 

G£OT 

GOeiT ~ 

GOeOT = 

GSCNTO= 

GSDELn= 

GSDiSP= 

G$€XCP= 

G$HlLi= 

GfLOLI= 

GSMO = 

GSOFFS= 

GSOFSI= 

GSPWM= 



000021 
000017 
000012 
000003 
000005 
000010 
000002 
000014 
000001 
012600 
000001 
001026 
000200 
0003^2 
000003 
000400 
000002 
000001 
000000 
000400 
000376 
000001 



4227* 
724* 
1796» 
4328* 
579# 
319* 
319* 
1080 
1081 
2140 
2189 
2208 
657* 
65 8# 
659# 
660# 
677# 
31 9# 
31 9# 
31 9# 
2248 
3915 
31 9# 
31 9# 
31 9# 
2298 
3801 
31 9# 
319* 
319* 
31 9# 
319* 
319* 
2108 
319* 
319* 
31 9# 
319* 
31 9# 
319* 
319* 
319* 
319* 
870* 
656* 
645* 
319* 
319* 
319* 
319* 
319* 
319* 
319* 
319* 
319* 
319* 



4232 
U52» 
1809 
4341 



433 
2237* 
1245 
2162 
2237* 
2237* 



2308 
322 
2262 
3951 
2321 

322 
2312 
3803 
4437 

484 
2262 

322 
1995 
2114 
2248 



4478 
1972 

506 
2343 
4152 
2602 

873 



4481 



4440 
4440 
4440 



CROSS REFERENCE TABuE ■ 

4263» 4268 4294* 
1465 1490^ 1503 
1894* 1903 2783* 



F 10 
USER SYMBOLS 



SEO 122 



2032 
2237* 



2425 2952 



2310 
1972 
2308 
4421 
2323 

1979 
2325 
3821 
4456 
493 
2296 

4507 
1998 
2122 
2253 



4490 
1977 

512 
2344 
4376 



3643 



1995 
2321 
4437 



2000 
2342 
3915 



2011 
2128 



4300 

1527* 

2796 



2044 2237* 3961 



2011 
2342 
4478 



2017 
2344 
3917 



2015 
2135 



2026 
2344 
4481 



2056 
2346 
3951 



2026 
2147 



4326* 

1540 

2853* 



4075 



2064 
2378 
4507 



2071 
2378 
4421 



2054 
2154 



4333 

1637* 

2866 



4415 



2079 
2914 



2086 
2914 
4423 



2064 
2169 



4387* 

1650 

2903* 



4392 

1673* 

4191* 



1686 
4204 



1758* 
4295* 



1771 
4308 



2094 
2948 



2101 
2916 
4458 



2108 
3608 



2116 
2948 
4492 



2069 2079 



2122 
3638 



2130 
3608 
4507 



2084 



2135 
3801 



2149 
3610 



2154 
3821 



2171 
3638 



2094 2099 



2379 2914 2949 3608 5639 3801 3822 3915 3952 4421 



4445 4450 4484 
4445 4450 4484 
4445 
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G$PRHO= 


000002 


319* 


G$PR«L= 


000000 


319* 


GSRAOA= 


000 UO 


319* 


GSRAOB= 


000000 


319* 


GSRAOO= 


OOOOAO 


319* 


GSRADL= 


000120 


319* 


GWADO= 


000020 


319* 


GSXFER= 


000004 


319* 


GIVES = 


000010 


319* 


HELP = 


000000 


309* 


HOE = 


100000 G 


592* 


IBE = 


010000 G 


589* 


IDBF = 


000020 


679* 


lOU - 


000040 G 


582* 


lER = 


020000 G 


590* 


ILCHO = 


040000 


670* 


ILCOO = 


000000 


634* 


ILC03 = 


000406 


637* 


ILC05 = 


001012 


639* 


ILC06 = 


001414 


640* 


ILC11 = 


000022 


643* 


ILC12 = 


000424 


644* 


ILCK = 


001030 


646* 


INHBT = 


000001 


675* 


INPt/T 


006322 


773* 






3087* 


INTEN8= 


000100 


662* 


INTFLG 


002240 


749* 


INTIN 


017720 G 


1972* 


ISR = 


000100 G 


583* 


IXE = 


004000 G 


588* 


I$AU = 


000041 


319* 


ISAUTO= 


000041 


319* 


ISCLN = 


000041 


319* 


ISDU = 


000041 


319* 


ISHRD = 


000041 


4437* 


I$INIT= 


OC0041 


319* 


ISWD = 


000041 


319* 


I MSG = 


000041 


319* 






2108* 


I$PROT= 


000040 


319* 


ISPTAB= 


000041 


319* 


ISPWR = 


000041 


319* 


ISRPT = 


000041 


319* 


IfSEG = 


000041 


319* 


IfSETU= 


000041 


319* 


ISSFT = 


000041 


4478* 


IfSRV = 


000041 


319* 


issue = 


000041 


319* 


iSTsr = 


000041 


319* 






3821* 


JSJWP = 


000167 


319* 


LDPTS = 


000040 


680* 






3832 


L INPUT 


002210 


728* 


LOf = 


040000 G 


591* 





CROSS 


REFERENCE 


TABLE 


4450 


4484 






4484 








4440 


4445 


4450 




4440 


4445 


4450 


4484 


348 


451 


473 


807 



G 10 
USER SYMBOLS 



SEQ 123 



2569 
2569 
2569 
2569 
2569 
2569 



2601 



917 
3599 
2602 
1974* 
2287 


1297 
4327 

2284* 


1326 


1377 


1413 


1451 


1672 


1692 


1694 


1795 


2157 


2605 


2606* 


2613 


















2308* 
2321* 


2312* 
2325* 






















4458* 
2262* 
322* 
1995* 
2116* 
2248* 


4481 

2298* 

4507* 

2000* 

2122* 


2011* 
2130* 


2017* 
2135* 


2026* 
2149* 


2056* 
21 S4* 


2064* 
2171* 


2071* 


2079* 


2086* 


2094* 


2101* 


2342 


2378 


2948 


3638 


3821 


5951 














4481 

1972* 

2342 

2342* 

3915* 


4492* 

1979* 

2378 

2344* 

3917* 


2948 

2346* 

3951* 


3638 

2378* 

4421* 


3821 

2914* 

4423* 


3951 
2916* 


2948* 


3608* 


3610* 


3638* 


3801* 


3803* 


2388 


2967 


3040 


3074 


3102 


3167 


3247 


3323 


3399 


3464 


3528 


3658 


1300» 


2139 


2157* 


2161 



















CZTRAC. 


P11 


50-DEC-81 


11:08 




LOGDEV 


00223A 




747* 


2265* 


LOT 


000010 


G 


580« 




LSACP 


002110 


G 


440« 




LSAPT 


002036 


G 


398* 




LSAUT 


002070 


G 


424« 




LSAUlO 


024200 


G 


441 


2308« 


LSCCP 


002106 


G 


438« 


2321* 


LSCLEA 


024202 


G 


439 


LSCO 


002032 


G 


394« 




LSOEPO 


002011 


G 


376* 


797* 


LSDESC 


012330 G 


431 


LSOESP 


002076 G 


430« 




LSDEVP 


002060 


G 


41 6« 




LSOISP 


002124 


G 


401 


464* 


LSOLY 


002116 


G 


446« 




LSOTP 


002040 G 


400« 




LSOTYP 


002034 


G 


396* 




LSOUT 


002072 


G 


426« 




LSOVTY 


012322 


G 


417 


788* 


L$EF 


002052 


G 


411« 




L$ENVI 


002044 


G 


404« 


712* 


LIERRT 


002154 


G 


435 


LSETP 


002102 


G 


434# 




LSEXPl 


002046 


G 


406# 




LSEXP4 


002064 


G 


420# 




L$EXP5 


002066 


G 


422# 




LSHARD 


034460 


G 


383 


4437 


LSHinE 


002120 


G 


448# 




LSHPCP 


002016 


G 


382* 




L$HPTP 


002022 


G 


386# 




LtHW 


002142 


G 


387 


484 


L$ICP 


002104 


G 


436# 




LSINIT 


024034 


G 


437 


2262* 


LSLADP 


002026 


G 


390# 




L$LAST 


035402 


G 


391 


4511* 


LSLOAD 


002100 


G 


432# 




LSLUN 


002074 


G 


428# 




LSHREV 


002050 


G 


408# 




L$NA«E 


002000 


6 


365# 




LSPRIO 


002042 


6 


402# 




LSPROT 


024026 


G 


443 


2248* 


L$PRT 


002112 


6 


442# 




L$REPP 


002062 


G 


418# 




LSREV 


002010 


6 


374# 




L$SOFT 


034624 


G 


385 


4478 


L$SPC 


0C2056 G 


414# 




L$SPCP 


002020 


G 


384# 




L$SPTP 


C02024 


G 


388# 




LSSTA 


002030 G 


392# 




LSSU 


002152 


G 


389 


506 


LITEST 


002114 


6 


444# 




L$TI«L 


002014 


6 


380# 




L$UNIT 


002012 


6 


378# 




LTOOOO 


002150 




484 


493* 


LlOOOl 


002154 




506 


512* 


LI 0002 


017734 




1977# 





CROSS REFERENCE TABLE 
2267 



H 10 
- USER SYMBOLS 



SEC 12-4 



485* 



4479* 



507* 



CZTRAC. 


P11 30-DEC-81 


11:08 




L 10003 


0177A2 


1998# 




LIOOOA 


017752 


201 5# 




Li 0005 


020062 


205A# 




Li 0006 


020100 


2069# 




Li 0007 


020116 


208A/r 




L10010 


0201 3A 


2099# 




L10011 


020156 


211A# 




L10012 


020200 


2128# 




L10013 


0202A2 


2147# 




LIOOU 


020322 


2169# 




L10016 


02A176 


2296# 




L10017 


024200 


231 0# 




LI 0020 


024202 


2323# 




Li 0021 


024204 


2344# 




Li 0022 


026520 


291 4# 




LI 0023 


031314 


3608# 




Li 002 A 


032036 


3801 # 




L10025 


032342 


391 5# 




Li 0026 


034454 


4421# 




LI 0027 


034512 


4437 


4457# 


L10030 


034642 


4478 


4491# 


HEQT 


023771 


2217M 


4414 


HEPSRF 


023712 


1780 


22Z7» 


MERFL 


022014 


1953 


2217H 


H6TFL 


023203 


1592 


22Z7M 


niOSFL 


022204 


2217M 


2S27 


HIENFL 


022161 


2257M 


2516 


HILFFL 


022337 


2217» 


2561 


HINTFL 


021707 


2217H 


2619 


WWSFL 


023262 


22370 


4118 


HNXBFL 


023046 


221711 




HNXMFL 


023115 


2237M 


2876 


PWFLEF 


022600 


22Z7M 


4051 


HPAfiFL 


023674 


1743 


22370 


WPCFL 


022227 


2237# 


2755 


MPWCL 


021443 


2237# 


2720 


HPWST 


021500 


2237# 


2731 


non 


021741 


2257» 




MRCFL 


023166 


1436 


1475 


NRDERR 


022643 


1312 


2257M 


mOFL 


021765 


1880 


2257» 


WEFET 


023474 


2237# 


4318 


HREFFL 


022726 


1399 


22570 


WEPFL 


0237A6 


1818 


22170 


HRI8FL 


02365A 


1702 


22170 


pvmvRG 


02202A 


2237# 


3960 


HRPETF 


02337A 


2217M 


4246 


HRSTFL 


021 7A5 


2217M 




HRSTli 


023221 


2217 H 


4074 


HRTOFL 


022772 


2217 » 






021156 


1124 


22170 


MRWLPF 


022306 


2217 » 


2^2^ 


HRWOFl 


022621 


2257 M 


4410 


«SRE FF 


022665 


1363 


2237# 


HSRETF 


023333 


2257M 


4214 


HSRIFL 


023620 


1659 


2237* 



I 10 

CROSS REFERENCE TABLE — USER SYMBOLS 



1512 
4351 



1549 22370 



C2TRAC. 


Pn 30-DEC-81 11:08 




CROSS 


MSRLPF 




C C J ' ^ 


2806 




MSRVFL 




1 T ■ C 


2237* 




MTEF = 




o vow 




1564 


MTRDY = 


nn?nnn 

vvc vvv 


UOw" 


1203 


MUNOFL 




C C J » 


4040 




WUEFET 




2237# 


4286 




MWEFFL 


VCC*t I J 


1176 


2237* 




HWELPF 




C C J ' 


2700 




nUENFL 




2237# 


4014 




«yiLPF 


0??50A 


1281 


2237* 




HWIPLF 




C C ' 


3031 




HyLPFL 


VCC .JUC 


2237# 

C C <^ ■ 


2659 




nUNXFL 


02501 2 


2237# 

C C ' " 






HUPETF 




1623 

1 UC^ 


2237# 




HWRTFL 




1850 

1 V»* V 


22570 




NyTOFL 


022751 

wCC ' 1 


2237# 


3234 




HXCFL 


02K02 

VC 1 ~vc 


2237# 


2502 




M16CFL 


021235 


2237# 


2457 




ni6SFL 


021 174 


223 7# 


2448 


2485 


M17CFL 


021337 

VC 1 


2237* 


2475 




ni7SFL 


021277 


2237* 

fa fa ■ " 


2466 


rtT 


n2A 


021057 

VC 1 Va/ • 


1244 

1 C~~ 


225711 




H2A1 


021140 


2031 


2257 M 


3982 


NEULIN 


020470 


221711 






N0TR79 


012362 


SQ70 






NULERR 


020432 


1996 


2052 


2067 


NXHF = 


000100 


681# 






JFFLN 


012532 


854# 


/ ATT 

4033 




OFLINE= 


001436 

VV 1 ~ ^ w 


64 9# 


857 




ONLNS = 


002000 


685# 






OUTPUT 


002262 

WWb fa Wb 


773# 


886 


961 


0$APTS= 


000000 

V wwww w 


31 9# 


392 




0$AU = 


000000 

www WW 


31 9# 


424 




0$eGNR= 


000000 

V www WW 


319/r 


418 




OSeGNS= 


000001 

WWWW 1 


31 9# 


T/ 7M 

34 7# 


384 


0$0U = 


000000 

www WW'* 


31 9# 


426 


434 


0$ERRT= 


000001 

WWWWW 1 


31 9# 


34 7# 


OSGNSW= 


000001 

WWWWW 1 


319/r 


347* 


TOO 

388 


OSPOIN= 


000001 

WWWWW ■ 


31 9# 


34 7# 


450 


0$SETU= 


000000 

WWWWWW 


31 9# 


378 


4509 


PATCH 


035270 


4499# 






PNT = 


001000 6 

WW • www w 


586# 






PRI = 


002000 6 

WWbWWW w 


587# 






PRIRTy 


034571 


44S1 


4460* 




F>RIOO = 


000000 G 

WWWWW w 


57S# 






PRI01 = 


000040 G 

wwvw^ w u 


574# 






PRI 02 = 


000100 G 

www ■ WW w 


573# 






PRI03 = 


000140 G 

WWW 1 ~w w 


572# 


2608 




PRI04 = 


000200 G 

wwwtww w 


571/r 




767 


PRI05 = 


000240 G 

wwwt^w w 


490 


570* 


PRI06 = 


000300 G 


569/r 






PRI07 - 


000340 G 


568# 


^ ^a 4 

2281 


A7 

2507 


PRTRtb 


020324 


2066 




5AOiL 


PS 


177776 


615/r 






PS TACK 


002236 


748# 


2263* 




PWRCLR= 


004000 


667# 


1009 


1010 



J 10 

CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 126 



4026 4062 



2067 2082 2097 



4129 

2112 2126 



2U5 2167 2219* 



1298 1938 3197 3202 3210 



2175# 



CZTRAC. 


P11 30-DEC-81 


11 :08 




CROSS 


REFERENCE 


9 Am r 

TABLE 


RD 


012756 


91 5# 


'9 A A A 

3089 


3154 


3307 


3383 


RDCNT = 


001000 


684# 










READ = 


000004 


636# 


918 








REUIND= 


001020 


642* 


825 








RPEF = 


100000 


690# 








9 A c a 

3858 


RPTCNT 


002152 


509# 


2292 


2294* 


9 y AA 

3689 


RUDS = 


000002 


676# 






2539 


2634 


RUIND 


012416 


822# 


2391 


2403 






3249 


3325 


9 / A 4 

3401 


9 y z z 

3466 


7C /A 

35iO 


RWUAIT 


013354 


1022* 


1 134 


^ 4 CO 

• 159 


1 ^z.y 


1338 


1668 


1712 


1 754 


1 fy\ 


4 A ^A 

1829 






4091 


* 4 9 4 

•♦131 


4167 


y 4 

4187 


y iiy 

4224 


S8IT8 = 


000400 


664# 










S81T9 = 


^ A ^ AAA 

001000 


665* 










SFPT8L 


002152 G 


508* 










SFTTXT 


034642 


4482 


t 1 A^ u 

4493* 








SIZTAB 


032000 


3691 


9 9 A / M 

3794* 


9 A y A 

3860 






SPACER= 


001410 


638* 


933 








SPR 


013024 


930* 


2779 


3060 


3141 


9 ^ A r 

3295 


STEF = 


010000 


687* 










SVCGBL= 


000000 


319* 


322 


329* 


9 y r 

365 


9 y y 

366 


382 


9 A 9 

383 


9 A i 

384 


9 a r 

385 


9 ttZ 

386 






395 


^ A « 

396 


9 A9 

397 


9 A A 

398 


9 AA 

399 






408 


409 


411 


i 4 ^ 

412 


i 4 y 

414 






423 


424 


425 


i ^y 

426 


427 






436 


i 99 

437 


1 90 

438 


y 

439 


y y A 

440 






449 


464 


465 


y a c 

485 


> Oz 

486 






^ A ^ 

797 


AAA 

798 


4 A9 ^ 

1972 


1973 


4 AAC 

1995 






2080 


A A A ^ 

2094 


A A Ar 

2095 


^ 4 A A 

2108 


'%4 A A 

2109 






2262 


A A > 9 

2263 


AB 

2308 


2309 


2321 


SVCINS= 


A A A A A A 

000000 


319* 


3<f6* 


366 


367 


vz o 

368 




377 


99 A 

378 


9 9 A 

379 


9 A A 

380 


9 A 4 

381 






Y A A 

390 


9A4 

391 


9n ^ 

392 


9n9 

393 


9n y 

394 






t A9 

403 


404 


405 


406 


y A7 

407 






416 


> 4 9 

417 


/ 4 A 

418 


/ 4 A 

419 


/ ^A 

420 






t A A 

429 


M 9A 

430 


/ 9 4 

431 


432 


433 






442 


/ / 9 

443 


444 


445 


lid 

446 






467 


468 


469 


y 9A 

470 


y 7 4 

471 






803 


A A / 

804 


4 AZ C 

1065 


4 AZ Z 

1066 


4 ASA 

1080 






1246 


4 / 9 

1247 


1248 


4 ^ y n 

1249 


4 A 

1250 






A A ^ ^ 

2033 


^ A9 M 

2034 


2035 


^ atz 

2036 


1A9 7 

2037 






A A f y 

2056 


A A 9 A 

2070 


'>A>4 

2071 


2085 


^ aB y 

2086 






2139 


2140 


^4 y 4 

2141 


*%4 y 

2142 


4 y T 

2143 






2163 


2164 


2165 


^4 Z Z 

2166 


2167 






AAA g 


^ Af 

2205 


A AAV 

2206 


A A A ^ 

2207 


A A A A 

2208 






A A A ^ 

2223 


AAA/ 

222h 


2225 


2267 


*1 'iZ o 

2268 






A A A A 

2289 


A AAA 

2290 


2291 


^ ^ A^ 

2292 


2297 






A ^ A ^ 

2387 


^ 9nr 

2395 


2396 


^ y A A 

2400 


^ y A4 

2401 






2432 


2433 


ny 

2437 


'^y TO 

2438 


'ly y z 

2446 






A / r- A 

2459 


2464 


2465 


'^y z z 

2466 


oy z 7 

2467 






A / A ^ 

2485 


2486 


A / A 9 

2487 


^ y A4 

2491 


^y 

2492 






A ^ A ^ 

2507 


A ^ A A 

2508 


A r A A 

2509 


^ r 4 y 

2514 


2515 










5<Z 7 

£5hj 




5cza 






2608 


2609 


2610 


2617 


2618 






2638 


2639 


2657 


2658 


2659 






2698 


2699 


2700 


2701 


2702 



K 10 

SEQ 

USER SYMBOLS 



3600 


3725 


3767 


3852 


3870 


3889 


4223 


4322 


2671 


2767 


2817 


2970 


3042 


3076 


3104 


3169 


3660 


3788 


3834 


3908 


4140 


4365 


4381 




13/5 • 


i y AO 


1 y y 7 
I**/ 


1 y 0z 
1*06 


1 C 07 

1523 


1 CZ i 

(561 


1 ZAO 

1602 


1 ^77 

1633 


1859 


1890 


1922 


2037 


2411 


3984 


4028 


4064 


4260 


4291 


4323 


4382 












Ty y o 
3A48 


35 1 3 


7C BA 

5500 


771 y 
3/1* 


77^1 

3/61 


y 1 OZ 

* loo 


/ OOA 

4£V0 


3/'4 


7 7C 


7 7^ 


777 

if f 


77B 

3/0 


77Q 

3/V 


XBA 

360 


7B1 

361 


50f 


3 SO 


7BO 

3oV 


70A 

3V0 


701 

3V1 


7Q0 
JVi 


7Q7 

3y3 


7Q/ 

3y4 




y Ai 
sO 1 


y A > 
*02 


y A7 
*03 


y A/ 
*0* 


/ AC 

*05 


y /vz 
40O 


/ A7 

40/ 


SI 5 


H 16 


/ 1 7 
41 / 


/IB 

* IB 


Z 1 c 

41 y 


Z OA 
*£0 


Z 01 
4£l 


zoo 

*££ 


428 


y OQ 


/ 7A 

430 


y 71 
*31 


y 70 

*3£ 


/ 77 

*33 


/ 7Z 

434 


/ 7C 

435 


/ y i 




/ Z 7 

443 


LI L 
444 


zzc 
445 


440 


ZZ7 

44/ 


zzfi 
440 




CA7 


CAB 

500 


C AO 

5oy 


71 0 


71 7 

/ 1 3 


7BB 

/Bo 


7BQ 

/6y 


IWO 


0A1 1 

201 1 


0A1 0 


OAO*. 

2026 




OAil/ 

cOO* 


£00^ 


OA 7Q 

£0/y 


2122 


01 01 

2123 


01 7C 

2135 


01 7X 

el 30 


01 CZ 

^1 54 


01 cc 
cI55 


00/. B 
££4B 


OOZQ 
££4V 


2322 


/ / XB 


/ / 7Q 

**3V 


££70 

44AV 


/ / BA 

4400 


/ C 1 1 M 

4 1 (<» 


/CIO 

451 £ 




36V 


X7A 

3f 0 


771 

3^1 


770 

31 C 


777 

3/3 


77/ 

3/* 


77C 

3/5 


77il 
3/0 


382 


383 


7B/ 

38* 


7BC 

365 


7B^ 

3oo 


7B7 

30/ 


7BB 

366 


7BQ 
36V 


vac 
5t5 


3V6 


to 7 


70fi 

3V8 


700 

37 r 


/ AA 

*0v 


ZA1 
4U1 


ZTO 
4U£ 


/ Aft 


40V 


/ 1 A 
*10 


/II 

411 


y 1 0 
*lc 


Z 1 7 

*13 


Z 1 z 
4 "4 


' 1 c 

1 5 




/ 00 

422 


/ 07 

*<:3 


/ oy 
4c4 


/ oc 
4<:5 


Z Oil 

*co 


Z 07 
4£/ 


Z Ofi 

4£6 


h3^ 


435 


/ 7iL 

43o 


/ 77 

43' 


Z 7B 

*3o 


Z 70 

*3y 


ZZA 
440 


ZZ 1 
44 1 




440 


447 


/. cn 
450 


/ *.7 

*o3 


404 


ZAC 
4o5 


*oo 


/ a/ 


*05 


CAX. 

506 


CA7 

50/ 


7Ba 
toy 


70A 

/VO 


701 

/y 1 


7QA 

/yo 


lOBl 


1 ABO 


1 AB7 

1003 


1 AB/. 

100* 


1 ABC 

1005 


1 ABA 

lOoo 


1 OZ/ 
l£44 


1 OZC 
1 £45 


1 07B 

IVf 0 


1 Q70 

1 VrV 


1 QOO 

1 vvv 


OAAA 

eOOO 


0A1 iL. 

eOlO 


0A1 7 

cO 1 / 


0A71 

£031 


0A70 
£03£ 


on/ T 
2043 


OA/ / 

20** 


OA/ C 

cO*5 


OA/ 

204o 


0/1Z 7 

cO*/ 


OAZB 

cO*0 


OAZQ 

£v*y 


OACC 

£055 


2100 


01 til 

2lUl 


01 1 c 

2115 


01 1 it 

i llo 


01 oo 

£ IcV 


01 7 A 

<:130 


01 77 

£l 3/ 


01 7B 

£ 1 36 


oi / y 

21 4h 


01 / c 
21*5 


01 / u 


01 /.O 

«:14V 


0 1 CO 

£l5V 


01 tJ\ 

£ 160 


01 ill 
£lO 1 


01/^0 
£lO£ 


01 7A 

21 '0 


01 71 

21 ff 


01 BO 

c loV 


oion 
c IVO 


01O1 
£ IT 1 


01O0 


01 07 

£iy3 


OIQZ 


2cOy 


091 A 


001 1 

cc\ 1 


001 0 


001 7 


ooon 


0001 
£CC 1 


0000 
££££ 


oo^o 
226t 


007A 


00B1 

2col 


OOBO 
CCOC 


00d7 


OOBiL 
££00 


00fi7 

ccof 


££00 


0 OOP 

22t8 


OTi 1 

231 1 


Oil 0 

231i 


070Z 

c3c4 


070C 

c3c5 


07ZC 

c3*5 


07ZA 
£34o 


07BA 
£360 


O/ 1 o 

2*» IV 


0/ OA 

2420 


0/ 01 

2*21 


0/ 00 
2*£C 


OZ 07 

c*c3 


OZ OQ 


OZ 7A 
£430 


OZ 71 
£431 


0/ / 7 


0/ ZB 


0/ / Q 

c**y 


0/. CA 

c*50 


ozcc 
c*55 


OZ Ca 
c450 


0ZC7 
£45/ 


OZCfl 
£450 


oy 

2468 


0/ 77 
C*' 3 


0/ 7/ 
C*/* 


0/ 7C 
C*f 5 


0Z7iL 
£*/0 


0Z77 
£4/ / 


0Zfi7 
£403 


OZAZ 
£404 


t*t7 J 




C"t7 J 




?501 


2502 

C J\d^ 


2503 


2504 


2516 


2517 


2518 


2525 


2526 


2527 


2528 


2*; 29 


2550 


2559 


2560 


2561 


2562 


2563 


2599 


2600 


2619 


2620 


2621 


2622 


2623 


2h2'* 


2629 


2630 


2660 


2661 


2666 


2667 


2675 


?676 


2680 


2681 


2705 


2706 


2718 


2719 


2720 


?72^ 


2722 


2729 
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2730 






2776 






2832 






2893 






2964 






3007 






3052 






3100 






3139 






3184 






3258 






3294 






3340 






3376 






3421 






3463 






350*i 






3546 






3591 






3656 






3700 






3745 






3793 






3868 






3961 






4012 






4041 






4070 






4127 






4163 






4221 






4288 






4369 






4418 






4446 






4479 






4509 


svcsue= 


000000 


31 9# 


SVCTAG= 


000000 


319/r 




2055 






2169 






3609 


SVCTST= 


000000 


31 9# 






3952 


s$Lsy«=: 010000 


31 9# 






2170# 


TBA = 


164006 


623# 


TCR = 


164000 


o20# 


TESTA 


013402 


828 


TESTC 


013446 


1076# 


TESTK 


025222 


2594 


TESTM 


025360 


2662# 


TESTN 


014066 


1195f 






2829 






3162 






3377 



CROSS REfCRENCE TABLE - 



2731 


2732 


2733 


2753 


2777 


2804 


2805 


2806 


2833 


2839 


2340 


2874 


2906 


2907 


2908 


2909 


2965 


2974 


2975 


2979 


3011 


3012 


3029 


3030 


3057 


3058 


3066 


3067 


3101 


3108 


3109 


:ii3 


3145 


3146 


3151 


3152 


3185 


3191 


3192 


3232 


3259 


3264 


3265 


3269 


3299 


3300 


3304 


3305 


3341 


3345 


3346 


3352 


3380 


3381 


3387 


3388 


3422 


3428 


3429 


3433 


3470 


3471 


3475 


3476 


3506 


3510 


3511 


3517 


3550 


3551 


3557 


5558 


3592 


3596 


3597 


3604 


3657 


3664 


3665 


3669 


3707 


3708 


3712 


3713 


3746 


3753 


3754 


3758 


3802 


3803 


3830 


3831 


3869 


3876 


3877 


3886 


3962 


3963 


3964 


3965 


4013 


4014 


4015 


4016 


4042 


4049 


4050 


4051 


4074 


4075 


40/6 


4077 


4128 


4129 


4130 


4131 


4164 


4171 


4172 


4178 


4222 


4244 


4245 


4246 


4316 


4317 


4318 


4319 


4370 


4374 


4375 


4408 


4419 


4420 


4422 


4423 


4447 


4448 


4449 


4450 


4481 


4482 


4483 


4484 


4510 


4511 






328# 












HyH 


SI? 


2069 


2070 


2084 


2085 


2170 


2296 


2297 


2310 


3801 


3802 


3915 


3916 


327# 


2342 


2343 


2378 


494# 


51 3# 


1978# 


1999i 


2297# 


2311# 


2l2'^» 


2345J 


844 


860 


890 


905 


2012 


4019 






2625# 








2383 


2397 


2434 


2531 


2961 


2976 


2996 


3008 


3175 


3242 


3255 


3266 


3394 


3407 


3418 


3430 



L 10 



USER SYMBOLS 



275ii 


2755 


2756 


27^7 


2807 


2808 


2813 


2814 


2875 


2876 


2877 


2878 


2910 


2915 


2916 


2956 


2980 


2985 


2986 


2993 


3031 


3032 


3033 


3038 


3072 


3073 


3080 


3081 


3114 


3119 


3120 


3126 


3158 


3159 


3165 


3166 


3233 


3234 


3235 


3236 


3270 


3276 


1277 


3281 


3311 


3312 


3321 


3322 


3353 


3357 


3358 


3364 


3397 


3398 


3405 


3406 


3434 


3440 


3441 


3445 


3481 


3482 


3486 


3487 


3518 


3526 


3527 


3534 


3562 


3563 


3570 


3571 


3605 


3609 


3610 


3647 


3670 


3675 


3676 


3680 


3718 


3719 


3723 


3724 


3759 


5765 


3766 


3771 


3838 


3839 


3843 


3844 


3887 


3906 


3907 


3912 


3966 


3980 


3981 


3982 


4024 


4025 


4026 


4027 


4052 


4053 


4060 


4061 


4078 


4079 


4080 


4116 


4136 


4137 


4144 


4145 


4179 


4184 


4185 


4212 


4247 


4248 


4256 


4257 


4320 


4349 


4350 


4351 


4409 


4410 


4411 


4412 


4437 


4438 


4440 


4441 


4451 


4452 


4453 


4454 


4485 


4486 


4487 


44S8 




1077 


10711 




2099 


VM 


2114 


2115 


2311 


2323 


2324 


2344 


4421 


4422 


4457 


4458 


2379 


2948 


2949 


3638 


2016# 


20SS# 


2070* 


2085* 


?Qi <:« 








921 


936 


951 


965 


2546 


2596 


2626 


2663 


3035 


3048 


3069 


3082 


3278 


3290 


3301 


3318 


3442 


3459 


3472 


3483 



SEQ 



2762 


2763 


277\ 


2772 


2821 


2822 


2827 


2828 


2889 


2890 


2891 


2892 


2957 


2958 


2959 


296C 


2994 


2999 


3000 


3006 


3039 


3046 


3047 


3051 


3085 


3086 


3093 


3094 


3127 


3132 


3133 


3138 


3173 


3174 


3178 


3179 


3245 


3246 


3253 


3254 


3282 


3288 


3289 


3293 


3329 


3330 


3334 


3335 


3365 


3369 


3370 


3375 


3410 


3411 


3416 


3417 


3446 


3452 


3453 


3462 


3493 


3494 


3498 


3499 


3535 


3539 


3540 


3545 


3577 


3578 


3584 


3585 


3648 


3649 


5650 


3651 


5681 


3687 


3688 


3699 


3729 


3730 


3734 


3735 


3772 


3786 


3787 


3792 


3849 


3850 


3856 


5857 


3913 


3916 


3917 


3960 


3983 


3984 


3992 


3993 


4023 


4038 


4039 


4040 


4062 


4063 


4064 


4069 


4117 


4118 


4119 


4120 


4149 


4150 


4158 


4159 


4213 


4214 


4215 


4216 


4284 


4285 


4286 


4287 


4352 


4353 


4359 


4360 


4414 


4415 


4416 


4417 


4442 


4443 


4444 


4'45 


4455 


4456 


4457 


4478 


4489 


4490 


4491 


4508 


10OQ 


701 <t 


cW lO 




2128 


2127 


2147 


2148 


2345 


2914 


2915 


3608 


4491 


4492 






3639 


3821 


3822 


3951 


2100# 


2115* 


2129# 


2148* 










980 


1044« 






2677 


2759 


2773 


2810 


3097 


3110 


3135 


3148 


3331 


3342 


3354 


3566 


3495 


3507 


3523 


3536 



H 10 

SEQ 
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7C/ 7 


7^ QQ 

jjjy 


3 J ' H 


7CfiB 


J JT J 




jDOD 


jOf f 


XMf\ 
joto 


X70Q 

J f VT 


X770 

Jf cv 




Jf 3 J 






77B7 


7857 
30c ' 

Z. 771 


7Bzn 


7B^A 
johO 


7fl^^ 


jOO J 


jy\jj 


H 1 HO 


^1 AO 

H 1 OV 


^1/ A 

H 1 liO 


^1 A1 

H 1 O 1 


^71 A 

He 1 O 


He 3 J 






























Its INN 


OiH loo 






7Q7<v 

jyfo 






















TtSTN 1 


0 IH^IH 


1 0/ 7« 
1 £H J* 




/.I 57 
•» 1 C3 






















T r C T ^ 

TEST2 


024206 


^'?7A« 


























TkST4 


031316 


3639* 


























TESTS 


032040 


3822* 


























TEST6 


032344 


3952* 


























TWOUT = 


AAA/ A A 

000400 


Z O T 41 

683* 


























TPT52 


A^A/ f / 

020454 


2207 


22Z2M 












917* 


075* 
t3c • 


OL 7* 
TH f " 




07A* 
Tf 0" 


OOO 

TTT 


TRBA 


002250 


r64* 


824* 




050* 


Of C* 


BBA* 
OOO* 


oni * 

y\j \ " 


OAI * 
tO I ■ 




5it AC * 
£603* 


£0*t5* 


5BB5* 
(Coot* 


5BB7 


7107* 
3 1 Tf " 


75fl5« 












007* 


TRCR 


WiiCHC 


7iL1 if 


S5C* 


OcO" 


fiZ.1 » 


Ohc ■ 


0 J' " 


A^A* 

O JO" 


R7^* 

O f J " 


A 7^* 

O f H " 


AA7* 

OO f 


AAA* 

OOO' 


007* 

TVC " 


91 o" 


y It" 


077* 


07A* 


OZ.B* 




tOc " 


TO J" 


07A* 

Tf O" 


996 


1009* 


1010 


1048 






1 ACA 


1 AC5 

244<: 


1 5A7 
l£U3 


1 5nc 


1 5C5 
1 CJC 


1 ^A5 
1 50c 


1 ^ts.L 
1 50'» 


1 500 


107^* 

I Tf J" 


550A 
ccUO 


5571 * 
cc f 1 " 


55A7* 


77A0* 
c jOU* 








5/ CI * 


5/ C5 




CHO I 


5£AO* 


CHf U 
C Ih 


CHf 0" 


5/. 70 
CH f Tf 


5^ SB 
chOO 


5AQA* 
chtO" 


5A07 

CHTf 






2509* 


5C 1 A 

2510 


5C 5A* 


5C51 


5A1 A* 


C f UO' 


Cf uy 


575^ 
CI CJ 


5Aa5* 
cOhc" 


cOh J" 


cOhO" 


CTHT" 






319o* 


71 QQ* 

3 ivy* 


XA.L 1 * 

30*i 1 • 


7B5Z. • 
30£*i* 


70CC* 
3y55* 


z.rt/.7 

•»U«f3 


*»jO«I" 














TRrRT 




7A7A 


5570* 

cciy* 


55BA 














945* 


959* 


974* 


997 


TRSR 






B55* 
Oct" 


B7B* 


BCA* 
o5*i " 


Or U" 


00*»" 


POO* 


01 1)* 

T 1 J ■ 


930* 


1 A77 


1 AOfi 

1 Ooc 


1 1 AZ. 
1 1 0*» 


1 1 flA 
1 lUO 


1 1 oc 

1 1 y5 


1 57A 

1 c 30 


557^ft 

ct f J" 


5^AA 
c jOO 


5A5S 

CHC 5 


c j30 


7fJ\X* 
cDvj' 


CO J 1 


cDOO 






C I J** 


c f Oh 


CO 1 5 




5QS5 


C 'Of 


JUHU 


jvl H 


J 1 WC 


J 1 Of 


^lOS* 

J 1 T J " 


7747 

JCH f 


7373 

J JC J 






7700 


7AA^ 


7^5A 


JOH J 


Jo JO 


J f vC 


^748 

jf HO 


jojc 


^871 

JOf 1 


3890 


'^9S7 


79M 


40^ 






ADS? 


A1 

H 1 JO 


*» IJJ 




••JO J 


HJf f 
















TDur T 






CC ' O " 


57ftR 
c c Oo 












T J 1 


THO" 


T%J\J 


97S* 

Tf J 


998 

TTO 


TDur 
1 NWl. 


UUcc*»o 


7A7ir 
f 0 J* 


Oc J" 


O JT" 




87;* 


HAS* 

oo J" 








5An^* 








J 1 tO^ 


JCv I 














TD70 


UUcUUU u 


7??Jf 


























T C A — 


UUU f ^ c 


Oc J* 


























Ten — 


i64UU<: 


6c 1* 


























TSTINT 


025066 










4133 


















TSTRDY 


014114 


1203* 


2040 


3989 


4066 




















UuUl f U 


Oc*»* 


























Tl f A f T 




1 m Oir 


























TWC = 


164004 


tcclf 






















70XA 
cwjO 


70^ 7« 

CUH jw 


rlARGC" 


000002 


360* 




300* 


3oy* 




771 M 

J f 1 » 


1 ABA* 


inA^ 

! U05 


1 CHH» 


1 7^0 

1 CHT 


707 1# 

C WJ I* 




C 1 Jf w 

•lUf y 


51 

•••• 1 •!» 


51 ^QM 


51 

c 1 DO 


51 AO* 


?10^ 
C 1 TJ 


970A* 

CtVHW 


7717 
cc ic 


7770* 
cccuw 


7774 

CCCH 


JTWWw 


JTV J 


TCrrv\c — 




LLLCiM 




•••• jUw 


HHO 1 * 








2484* 


7497* 

CHTC* 


7S01* 

C JV 1 W 


7S1S* 

C J 1 J* 


7S7M 

C JCOW 




1 »cRRW- 


UvWfl 






5/7(1* 


0LL7M 


5^ I A* 
c«» jO* 


7tA^* 
c*«Oj» 


2474* 






coyy* 


9710* 


Cf J WW 






787S* 


7890* 


7907# 


C7 Jf W 


Jv JW 


7577J 






30*>0' 


jyo 1* 


£.ni xm 




HUjyw 




4061 # 


4117# 




£71^ 

Ic 1 J* 


474 S# 

ICl jw 


478S* 

*ICOJW 


■ij 1 » <• 






HJ3U* 


<i<tuy« 












•IIOt 












T$fXCP= 


000000 


LLLt\M 
HHHVm 


4444 




<»<»*y 




•i*55 












^$CMM= 


000000 














HHO*** 


LLtLti 

HHOO 












TSHILI= 


000764 


LLLf\M 


LLLX 




















TSLAST= 


000001 


71 0« 
3 It* 


H>uy* 










HHO'I* 


HHOf 












TSLOLI= 


000000 


*t<»«tU* 


LLfi 




LLL7 


•IH JV* 


•ihS J 


cvOj 


7100 
c 1 Uv 


711S 

C 1 1 J 


7179 

C I CT 




TSLSYn= 010000 


319* 


*(y*i 
2297 


CI 7 

3 1 3 


1 yf O 


1 ooo 
1 yyy 


5niA 
cUlO 


cV;55 


cvf U 






2170 


231 1 


2324 


2345 


2915 


3609 


3802 


3916 


4422 


4458 


4492 




TSLTNO= 


000006 




















1998* 


201 U 


2015* 


2026* 


T$WESTs 




319* 


3220 


484* 


493* 


506# 


512# 


1972* 


1977* 


1995# 




2054* 


2064* 


2069* 


2Q79M 


2084# 


2094# 


2099* 


2108A 


2114* 


2122# 


2128* 


2135* 


2147* 






2154* 


2169* 


22UM 


225i/f 


2262M 


2296* 


23084r 


231 04r 


2321 # 


2323# 


2343« 


2344* 


2379* 






2914* 


2949* 


3608# 


3639* 


3801 # 


3822# 


391 S# 


39S2# 


4421# 


4437* 


4456# 


U78« 


4490* 
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CROSS REFERENCE 


TABLE ■ 
















TJNSO = 


AAA A A A 

000000 




/ CA7 

450/ 








TJNSl = 


A AA AA C 

000005 


484* 


/ 07 

493 


C AZ. M 

506* 


CI T 


1 O70M 

1 9/ 2* 






^ AZO 

2069 


0A7OM 

20/9* 


*> AO / 

2084 




OAOO 

2099 






22hoM 


00C7 

2253 


2262* 


2296 


2308* 






7^ AO 

3608 


7X7AM 

3639* 


7 O A i 

3801 


7000M 

3822* 


7Q1 C 

391 5 


T»PTNU= 


AAAAAA 

000000 


7 -1 A M 

319* 










T>SAvL= 


1 77777 


7i Am 

319* 










T»SEGL= 


1 77777 


319* 










T>SUBN= 


AAAAAA 

000000 


7 i Am 

319* 


07/ OM 

2342* 


07 70 M 


OA/ OM 

2948* 


3638* 


T»TAGL= 


1 rrrff 


7i Am 

319* 








t»tagn= 


A1 AAT 1 

010031 


71 AM 

319* 


/ Q/ M 

484* 


C A^ M 

506* 


19/2* 


1995* 






1 i C/ M 


OO/ O M 

2248* 


0 ox 0 M 
22b2fr 


07Aa« 

2308* 


0701 M 

2321* 


T»TtMr= 


AAAAAA 

000000 


465* 


466* 


46/* 


/ XOM 

468* 


/ iCOM 

469* 






')A^ AM 

2069* 


OAO/ M 

2084* 


0 Aon M 
2099* 


O 1 1 / M 

2114* 


01 OBM 

21 28* 






7^A0m 

3608* 


70A1 M 

3801* 


701 C M 

391 5* 


/ / 01 M 

442 1* 


/ / / A# 


T C C T — 

T»Tc5T= 


AAAAAA 

000006 


71 AM 

31 9* 


07/ OM 


077BM 

23/8* 


OO/ Om 

2948* 


X/iXOM 

3638* 


T»TSTH= 


1 r fff 


71 Am 

319* 


1 A^ C 

1065 


1 AO / 

1084 


1 0/ o 

1 248 


1 AAA 

1999 






Tl OA 

2129 


01 / 7 

21 43 


0 1 / o 

2148 


0 1 X. c 

2165 


0 1 7A 

21 /O 






2324 


07/ C 

2345 


070X 

2386 


07AC 

2595 


0/ AA 

2400 






'I/ A1 

2491 


OCAA 

2500 


OCAB 

2508 


0C1 / 
251h 


ococ 
2525 






O^ OA 

2629 


0Z70 

2638 


265/ 


2666 


ox 7C 

26/5 






077Z 

27 ft 


OO A/ 

2804 


001 7 

2813 


0001 

2821 


Ofl07 

282/ 






OA?/ 

29r4 


0O7O 

29/9 


2985 


0007 

2993 


OOOO 

2999 






7A70 

30 r 2 


7AOA 

5080 


7ABC 

3085 


7A07 

3093 


71 AA 

3100 






71 CB 
3130 


7KC 

3165 


71 77 

31/3 


71 7B 

31 fo 


71 a/ 
3184 






3201 


TOBB 

3288 


7007 

3293 


3299 


3304 






7TiC/ 

3364 


3369 


777C 

33/5 


77Bfl 

338U 


338/ 






7/ / C 

3445 


7/ CO 

3452 


7/^0 

3462 


7/ 7A 

34/0 


7/ 7C 

34/5 






7C X/ 

3534 


7C70 

3539 


7C/ C 

35h5 


3550 


7CC7 

355/ 






7^/ 7 

364/ 


3656 


366h 


3669 


36/5 






777/ 

3/34 


77/ C 

3/h5 


3/53 


77CB 

3/58 


77XC 

3/65 






7BC/L 

3o56 


7BiLB 

3868 


38/6 


3886 


3906 






/ AZQ 

4U49 


/ t\Cf\ 

4060 


Z AXO 

h069 


/ A7fl 

hO/8 


/ 1 1 
41 16 






/IB/ 

4184 


/ 01 o 

4212 


Z. 001 

h221 


/ 0/ / 

h24h 


/ OCX 

4256 






4^22 










TC T C T C — 


AAAAAI 

UUUUU 1 


31 9* 


07/ IM 

23h3* 


23/9* 


OO/ OM 


7iL70ir 

3639* 


1 »»AU 1 ■= 


ni n/Si 7 
0 lUU 1 f 


07AB« 

23Uo* 


071 A 

2310 








1 *»CLc- 


A1 A/Son 


0701 # 

2321* 


O707 








1 *»HAn= 




/ / t7M 

443f * 


4*5/ 








T»»HW = 


A1 AAA A 


/ fi/ i# 
4o4* 


493 








IWINI- 


A1 AAi ^ 


2262* 


ooox 
2296 










ni AAI / 


1 995* 


1 OOfi 

1998 


0A1 1 M 

201 1* 


0A1 c 
2015 


2026* 






oil/ 
21 14 


01 OOM 


01 OO 

2128 


01 7C M 

2135* 


01 / 7 

214/ 


1 »»rRU= 


A1 AAI C 

UlUUl J 


00/ BM 

22ho* 










Tttc cor — 

TWSOr- 


A1 AA7A 


/ / 7B« 

44 '8* 


1 1 Q1 

hh91 








T»»5Rv= 


A1 AAAO 
010002 


1 A70M 
19/2* 


1 Q77 
19// 








i>»5U - 


A1 AAA1 
U lUUUl 


C AX# 

506* 


CIO 

512 










A1 AA^X 


07/ 7# 

2343* 


It/ 1 
2344 


23/9* 


OOl / 

2914 


on/ Am 

2949* 


T Cf\C — 

T.tDr - 


AAA AAI 


698* 










T.cHRD- 


AAAAA9 


699* 










T.c5r - 


AAAAAA 


69/* 










T.cSr T- 


AAAAAT 
UUUUU3 


7AAM 
/UU* 


1 1 00 

1 122 


1174 


1212 


1 07O 

12/9 






1621 


165/ 


1700 


1741 


1 770 

1 //8 


Tl 




hoj 


7^£7* 








TIAG 


033154 


4123# 











N 10 

SEQ 

USER SYMSOLS 



1977 


1995* 


1998 


2011* 


2015 


2026* 


2054 


2064* 


c 1 Do* 




51 53* 
c IjC* 


51 5P 
2 1 21) 


01 X^M 
C 1 J J* 


51 Z 7 


51 CA* 
C 1 5h* 


01 AO 

2169 


2310 


2l2Mt 


2323 


2343* 


2344 


2379* 


2914 


2949* 


3952* 


4421 


4437* 


4456 


4478* 


4490 




3821* 


3951* 














2011* 


2026* 


2064* 


2079* 


2094* 


2108* 


2122* 


2135* 


2343* 


2Z790 


2949* 


3639* 


3822* 


3952* 


4437* 


4478* 


470* 


471* 


403# 


512* 


1977* 


1998* 


2015* 


2054* 


2147* 


2169* 


2253* 


2296* 


2310* 


212111 


2344* 


2914* 


4445* 


4450* 


4456* 


4484* 


4490* 


i,5O70 






3821* 


3951* 


4512 












2016 


2035 


2047 


2055 


2070 


2085 


2100 


2115 


2192 


2211 


2223 


2268 


2282 


2290 


2297 


2311 


2419 


2429 


2437 


2446 


2455 


2464 


2^75 


2483 


2534 


2543 


2549 


2559 


2599 


2609 


2617 


2623 


2680 


2698 


2705 


2718 


2729 


2753 


2762 


2771 


2832 


2839 


2874 


2889 


2906 


2915 


2956 


2964 


3006 


3011 


3029 


3038 


3046 


3051 


3057 


3066 


3108 


3113 


3119 


3126 


3132 


3138 


3145 


3151 


3191 


3232 


3245 


3253 


3258 


3264 


3269 


3276 


3311 


3321 


3329 


3334 


3340 


3345 


3352 


3357 


3397 


3405 


3410 


3416 


3421 


3428 


3433 


3440 








^498 


JJSJJ 


J J 1 v 






3562 


3570 


3577 


3584 


3591 


3596 


3604 


3609 


3680 


3687 


3699 


3707 


3712 


3718 


3723 


3729 


3771 


3786 


3792 


3802 


3830 


3838 


3843 


3849 


591? 


^916 


3964 


1980 


399? 


401? 


40?4 




4127 


4136 


4144 


4149 


4158 


4163 


4171 


4V8 


4284 


4316 


4349 


4359 


4369 


4374 


4408 


4418 


3822* 


3952* 














2054 


206A# 


2069 


2079# 


2084 


2094# 


2099 


2108* 


?154* 


?1&9 














3608 


3639# 


3801 


3822# 


3915 


3952# 


4421 




1310 


1361 


1397 


1434 


1473 


1510 


1547 


1590 


1816 


1848 


1878 


1910 


1951 
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P11 30-DEC-81 


11 :08 




TIAJ 


032636 


40304r 




TIAK 


032720 


4055* 




T1AL 


033154 


4122* 




TIAT 


033362 


4180* 




TIAN 


033512 


4217* 




T1A0 


033622 


4252* 




T1AP 


033746 


4289* 




T1AQ 


034066 


4 9 ^ 4 M 

4321* 




T1AS 


032464 


3987* 




TIB 


032352 


3956* 




TIC 


032604 


4018* 




TIP 


032650 


S A9 *^ M 

4032* 




T1Q 


034216 


4355* 




T2 


024206 G 


466 


2378# 


T2AB 


026120 


2809* 




T2AT 


025722 


*^9m Aft 

2758# 




T2AU 


026^20 


2881* 




T28A 


026460 


2897* 




T2C 


024360 


2424* 




T2D 


024410 


*^ / 9n M 

2439* 




T2E 


024640 


2505* 




T2F 


024674 


2519* 




T2G 


025514 


2704* 




T2I 


024214 


^904 M 

2381* 




T2J 


024722 


2530* 




T3 


026522 G 


t d ^ 

467 


a a 

2948* 


T3AC 


02/740 


3240* 




T3AD 


030166 


3316* 




T3AE 


030*' 14 


9 9A^ M 

3392* 




T3Af 


030616 


9^ 

3457* 




T3AV 


027014 


9A9 / M 

3034* 




T3AU 


027130 


9A^ O M 

3068* 




T3AX 


031020 


9P ^ 4 M 

3521* 




T3AY 


031176 


3572* 




T3AZ 


031234 


3586* 




T3C 


026534 


2951* 




T3H 


026662 


2995* 




T3L 


027222 


3095* 




W 7 A 

T30 


026564 


29b6M 




T3U 


027344 


94 9/ M 

3134* 




T3V 


027374 


94 / 9m 

3147* 




T3W 


027424 


9 4 ^ A M 

3160* 




T4 


031316 6 


46S 


V< 9a a 

3638* 


T4EX 


031752 


99a 

3782* 




T4XX 


031466 


3690* 


3776 


T5 


032040 G 


469 


3821* 


T5AW 


032116 


va / c ji 

3845* 




T5xy 


A9 4 ^ 1 

032154 


9a m M 

3859* 


90 AZ 

3896 


T52A 


020702 


2232 


•^I99a 


T52B 


A A 94 9 

02071 7 


2232 


*^^T9a 

2237* 


T52C 


020734 


2232 


•^199*1 

2257M 


T520 


020751 


2232 


2217 M 


Tit 






jt3 I * 


UA« = 


000200 6 


584* 




USFA 


002212 


729* 


977* 


USEB 


0022U 


730* 


885 



B 11 

CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 131 



978 
900 



2552* 
916 



2601* 
931 



2602* 
960 



2610 
1299 



1637 1673 1724 1894 1934 2640* 



CZTRAC.PIl 30-DEC-81 11:08 



c n 

CROSS REFERENCE FABLE — USER SYHBOLS 







2778* 


2834* 


2988* 


3001* 


3059* 


3088* 


3121* 


3r.o* 


3153* 


3186* 


3271* 


328:>* 






33;7* 


3359* 


3382* 


3423* 


3435* 


3447* 


3488* 


3500* 


3512* 


3552* 


3564« 


35 9* 






3682* 


3692* 


3760* 


3851* 


3861* 


3888* 


4165* 


4173* 


4191 


4258* 


4295 


^528 


USEC 


002216 


731# 


901 


3565* 


3599* 












VECTOR 


034540 


4446 


446C# 






















WCOUNT 


035206 


4485 


4h93# 






















WEOF = 


001034 


6484^ 


948 






















UIOB = 


000432 


64 7# 


841 






















UPEF = 


040000 

V » www 


669M 
























WRITE = 


000402 


6Z5M 


887 


902 


2842 


3198 
















WRT 


012642 


884# 


2641 


3002 


3284 


3360 


3436 


3501 


3701 


4174 








URTC 


012710 


899* 


3566 




















WTEOF 


013072 


94 5# 


2682 


3128 


3747 


4259 
















yriDB 


012464 


838# 

3993 


2823 


2981 


3013 


3053 


3115 


3180 


3260 


3336 


3412 


3477 


3541 


UUAIT 


013362 


1020 


1023# 


2724 


2848 


3062 


3995 


4031 












XBA16 = 


010000 


668# 




















XBAI? = 


020000 


669# 
























XHDR 


020546 


2109 


2123 


2176 


2188# 


















XPRT 


020370 


2111 


2125 


2178 


2202M 


















XSALUA= 


000000 


31 9# 






















UUUwsU 


31 y# 
























X$OFFS= 


000400 


31 9# 
























XSTRUE= 


000020 


31 9# 
























fLSTIN= 


000001 


324/» 
























$LSTTA= 


000001 


325M 


























035402 


31 5# 


773# 


790# 


9030 


807f 


22SM 


4500/V 













3306* 
3598* 



3671 
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BCOHPL 1# 31 9# 

BERROR 1« 31 9« 

BGN^U 1* 319* 

BGNAUT 1* 31 9# 2307 

B6NCLN 1* 31 9# 2330 

BGNDU ^» 31 9« 

BGNHRD 1* 31 9« 4436 

BGMHU 1« 31 9« 483 

BGNINI 1« 31 9« 2261 

BGNMOO 1« 31 9« 321 

BGNHSG 1« 31 9« 1994 2010 

BGNPRO U 31 9« 2247 

BGNPTA 1« 31 9« 

BGNRPT 1« 319« 

6GNSEG 1« 31 9« 

BGNSET 1« 31 9« 

BGNSFT 1# 319# 4477 

BGNSRV ^» 31 9# 1971 

BGNSUe 1« 31 9# 

PGNSU 1# 31 9# 505 

B6NTST ^» 319# 2341 2377 

BNCOHP ^M 31 9# 

BNERRO 1# 31 9# 

BREAK U 3^9M 1064 

BRESET U 31 9# 2704 

CKLOOP 1* 31 9# 

CLOCK U 319# 

CLOSE ^» 319* 

CIRVEC U 3194' 

CUWEN 1# 319# 

DELAY ^0 31 9# 

DESCRI 1# 31 9# 796 

OEVTYP ^» 319* 787 

niSPAT 1# 319* 462 

DISPLA 1* 319* 4480 

DOCLN 1# 31 9# 

DOOU ^0 319# 

DORPT 1# 319* 

ENOAU 1# 319* 

ENOAUT 1* 31 9# 2309 

ENOCLN 1# 319* 2322 

ENOCOH 1* 319* 

ENOOU 1* 319* 

ENDHRO 1* 319* 4455 

ENDHW 1* 319* 492 

ENOIWI 1* 319* 2295 

EMOnOD 1* 319* 4506 

ENO«SG 1* 319* 1997 2014 

ENOPRO 1* 319* 2252 

ENOPTA 1* 319* 

ENORPT 1* 319* 

ENOSEG 1* 319* 

ENOSET 1* 319* 

EMDSFT 1* 319* 4489 

ENOSRV 1* 319* 1976 

ENOSUe 1* 319* 



D 11 

CROSS REFERENCE TABLE — MACRO NAMES 



2025 2063 2078 2093 2107 



2947 3637 3820 3950 



2053 2068 2083 2098 2113 



2121 2134 2153 



2127 2U6 2168 



CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE - 





1 w 




51 1 












1 M 




Cj'*j 


2913 


3607 


3800 


3914 


1 99 
















1 « 




























2533 






319f 


2385 


2394 


2399 


2436 


C r O 1 


P770 


2775 


2812 


2820 


2826 


2831 










3050 


3056 


3065 


3071 




3131 


3137 


3144 


3150 


3157 


3164 


3172 




3275 


3280 


3287 


3292 


3298 


3303 


3310 






3374 


3379 


3386 


3396 


3404 


3409 






3474 


3480 


3485 


3492 


3497 


3504 




3561 


3569 


3576 


3583 


3590 


3595 


3603 




3711 


3717 


Z722 


3728 


3733 


3744 


3752 




38A8 


3855 


3867 


3875 


3885 


3905 


3911 




A177 


4183 


4220 


4255 


4358 


4368 


4373 


ERRSF 


If 


31 9f 












ERRSOF 


1# 


31 9f 


2418 


2428 


2445 


2454 


2463 


26S6 


2697 


2717 


2728 


2752 


2803 


2873 




4023 


4037 


4048 


4059 


4115 


4126 


4211 


ERRTBL 


1# 


31 9f 


711 










ESCAPE 


If 


31 9f 












EXIT 


If 


31 9f 












FEOUAL 


If 


31 9f 












GETBYT 


1f 


31 9f 












GETPRI 


If 


31 9f 












GETUOR 


If 


31 9f 












GMANIA 


If 


31 9f 












GHAMIO 


If 


31 9f 












GHANIL 


If 


31 9f 












GPHARD 


If 


31 9f 


2266 










GPRHA 


If 


31 9f 


4439 


4444 








GPRMD 


If 


31 9f 


4449 


4483 








GPRPL 


If 


31 9f 












HEADER 


If 


31 9f 


364 










INLOOP 


If 


31 9f 












lOSETU 


If 


31 9f 












lOSTAR 


If 


31 9f 












KT11 


If 


31 9f 












LASTAO 


If 


31 9f 


4507 










MANUAL 


If 


31 9f 














If 


31 9f 












NSfiYTE 


1f 


31 9f 


36Sf 


371 


372 


373 




RSCHEC 


If 


31 9f 












nSCNTO 


If 


319f 


4440f 


4445f 


4450f 


4484f 






If 


31 9f 


1080f 


1244f 


203 If 


2043f 


2l37f 


NSCATA 


If 


31 9f 


365f 


374 


3/6 


378 


380 




398 


400 


402 


404f 


406 


408 


411 




430 


432 


434 


436 


438 


440 


442 


nSDECR 


If 


31 9f 


493f 


51 2# 


1977# 


1998f 


201 Sf 


2255M 


22960 


231 Of 


21210 


2344f 


291 4f 


3608f 


mOEFA 


If 


31 9f 


4440f 


4445f 


4450f 


4484f 




nSEMDE 


If 


31 9# 


493f 


512f 


1977f 


1998f 


201 5f 


22960 


2310f 


2Z2Z0 


2Z'*'*0 


2914f 


3608f 


3801f 


MERRI 


If 


31 9f 


2419f 


2429f 


2446f 


2455f 


2464f 




26S70 


2698f 


27Mi0 


27290 


27550 


2804f 


2874f 



E 11 

SEO -lU 

MACRO NAMES 



4420 



2542 


2548 


2598 


2628 


2637 


2665 


2674 


2679 


2838 


2963 


2973 


2978 


2984 


2992 


2998 


3005 


3079 


3084 


3092 


3099 


3107 


3112 


3118 


3125 


3177 


3183 


3190 


3244 


3252 


3257 


3263 


3268 


3320 


3328 


3333 


3339 


3344 


3351 


3356 


3363 


3415 


3420 


3427 


3432 


3439 


3444 


3451 


3461 


3509 


3516 


3525 


3533 


3538 


3544 


3549 


3556 


3655 


3663 


3668 


3g74 


3679 


3686 


3698 


3706 


3757 


3764 


3770 


3785 


3791 


3829 


3837 


3842 


3991 


4068 


4135 


4143 


4148 


4157 


4162 


4170 


2472 


2482 


2490 


2499 


2513 


2524 


2558 


26'6 


2888 


290'". 


2955 


3028 


3231 


3646 


3979 


40i1 


4243 


4283 


4315 


4348 


4407 








2159f 


2l89f 


2204f 


222Q0 


3960f 


4074f 


4^14f 




382 


384 


386 


388 


390 


392 


394 


396 


414 


416 


418 


420 


422 


424 


426 


428 


444 


446 


448 


788f 


7970 








2054f 


2069f 


2084f 


?099f 


2114f 


2128f 


2147f 


2169f 


3801f 


391 5f 


4421f 


4456f 


4490f 


4507f 







2054f 2069f 2084f 2099f 2114f 2128* 2147f 2169f 

391 5f 4421f 4456f 4490f 4507f 

2473f 2483f 2491f 2500f 2514f 2525f 2559f 261 7f 

2889f 2906f 2956f 3029f 3232f 3647f 3980f 401 2# 



p 11 



C2TRAC 


P11 


SO-DEC-81 


11 :08 




CROSS REFERENCE 


TABLE *- 


MACRO NAMES 












SE 




4024' 


4038f 


404 9f 


4060f 


4116f 


4127f 


42l2f 


4244f 


4284f 


431 6f 


4349f 


4408f 








nSESCA 


If 


31 9f 




























fftCSCS 


If 


31 9f 






























If 


31 9f 


4440f 


4445f 


4450f 


4484f 
























31 9f 






























If 


Il9f 






























If 


31 9f 












380f 




384f 


386f 








394f 




If 


31 9f 


322f 


365f 


374f 


376f 


378f 


382f 


388f 


390f 


392f 




398f 


400f 




4Q4f 


406f 


408f 


411f 


414f 


41 6f 


418f 


420f 


U220 


424f 


426f 




428f 


430f 


432f 


434f 


436f 


438f 


440f 


44 2f 


444f 


446f 


448f 


464f 


485f 


486f 


493f 




507f 


508f 


512f 


71 2f 


788f 


7970 


1972f 


19770 


1995f 


1998f 


201 If 


201 5f 


2026f 


2054f 


2064f 




2069f 




2084f 


2094f 


2099f 


2108f 


2114f 


21220 


212M 


2135f 


2147f 


2154f 


2169f 


2248f 


22620 




2296f 


2308f 


2310f 


2321f 


2323f 


2342f 


2344f 


2378f 


291 4f 


2948f 


3608f 


3638f 


3801f 


382 If 


391 3f 




395 If 


4421f 


44384 


4457# 


4479f 


4491f 


4511f 




















1f 


319f 


















2099f 










nSGETS 


If 


31 9f 


493f 


51 2f 


1977f 


1998f 


201 5f 


2054f 


2069f 


2084f 


2114f 


2128f 


2147f 


2169f 


2253f 


2296f 


231 Of 


2323f 


2344f 


291 4f 


3608f 


3801 f 


391 5f 


4421f 


4456f 


4490f 


4507f 








If 


319f 




























nSGNGB 


If 


31 9f 


322f 


365f 


374f 


376f 


378f 


380f 


382f 


384f 


386f 


388f 


390f 


392f 


594« 


396f 


398f 


400f 


402f 


404f 


406f 


408f 


411f 


414f 


416f 


418f 


420f 


422f 


424f 


426f 




428f 


430f 


432f 


434f 


436f 


438f 


440f 


442f 


444f 


446f 


448f 


463f 


464 


484f 


485 




486 


506# 


507 


508 


71 2f 


788f 


7970 


1972f 


1995f 


2011f 


2026f 


2064f 


2079f 


2094f 


2108f 




ft. ■ fcfc^ 


2135f 


2154f 


2248f 


2262» 


2308f 


23210 


4437f 


4438 


4478f 


4479 


4508f 


4511 






NSGNIN 


If 


319f 


365f 


366 


367 


368 


369 


370 


371f 


372f 


373f 


374f 


375 


376f 


377 


378f 


379 


380f 


381 


382f 


383 


384f 


385 


VA^ ^ 

386f 


387 


388f 


389 


390f 


391 


392f 




393 


394f 


395 


396f 


397 


398f 


399 


400f 


401 


402f 


403 


404f 


405 


406f 


407 




408f 


409 


410 


411f 


412 


413f 


414f 


415 


4l6f 


417 


418f 


n9 


420f 


421 


^220 




423 


424f 


425 


426f 


427 


428f 


429 


430f 


431 


432f 


433 


434f 


435 


436f 


437 




438f 


439 


440f 


441 


442f 


443 


444f 


445 


446f 


447 


448f 


449 


463f 


465f 


466f 






468f 


469f 


470f 


484f 


506f 


788f 


789 


790 


7970 


798 


803 


1065f 


1080f 


1081f 




1082f 


1083 


1084f 


1085 


1244f 


1245f 


1246f 


1247 


I248f 


1249 


1977f 


1978 


1999f 


201 6f 


2031 f 




2032f 


2033f 


2034 


2035f 


2036 


2043f 


2044f 


204 5f 


2046 


204 7f 


2048 


2055f 


207nf 


2085f 


2100f 




2115# 


2129f 


2137f 


2138f 


2139f 


2140f 


2141f 


2142 


2143* 


2144 


2148f 


2159f 


2160f 


2161f 


2162f 




2163f 


2164 


2165f 


2166 


2170f 


2189f 


2190f 


2191 


2192f 


2193 


2204f 


2205f 


2206f 


22070 


2?08f 




2209f 


2210 


221 If 


2212 


2220M 


22210 


2222 


2223f 


2224 


22670 


2268f 


2269f 


2281f 


22820 


2286f 




22870 


2288f 


2289f 


2290f 


2291 


22970 


231 If 


2324f 


2345f 


25B60 


2395f 


2400f 


2419# 


2420f 


2421 f 




2^220 


2429f 


2430f 


2431 f 


2432* 


2437# 


2446# 


2447f 


2448f 


2449f 


2455f 


2456f 


2457f 


2458f 


2464f 




2465f 


2466f 


2467f 


2473f 


2474f 


2475f 


2476f 


2483f 


2484f 


2485f 


2486f 


2491f 


2492f 


2493f 


2494f 




2500f 


2501f 


2502f 


2503f 


2507M 


2508f 


2514f 


251 5f 


25160 


2517f 


2525f 


2526f 


25270 


2528f 


2534f 




2543f 


2549f 


2559f 


2560f 


2561f 


2562f 


2599f 


2608f 


26090 


261 7f 


261 8f 


261 9f 


26200 


2(i220 


2623f 




2629M 


2638f 


2657f 


2658f 


2659f 


2660f 


2666f 


2675# 


2680f 


2698f 


2699f 


2700f 


27010 


27050 


2718f 




27190 


2720M 


2721M 


27290 


2730f 


2731f 


27520 


2753f 


2754f 


2755f 


?756f 


27620 


27710 


27760 


2S04f 




2805M 


2806f 


2807M 


281 3f 


i:821f 


2S270 


2S520 


2839f 


2874f 


28?5f 


2876f 


2S770 


2889f 


2890f 


2891 f 




2B92» 


2906f 


2907f 


2908f 


2909f 


291 5f 


29560 


295 7f 


?958f 


?959f 


2964f 


2974f 


29790 


2985f 


2995f 






3006f 


301 If 


3029f 


3030f 


3031f 


5OZ20 


3038# 


3046f 


^OSIf 


30 5 7f 


3066f 


50720 


3080f 


3085f 




3093f 


3100f 


3108f 


3113f 


3119f 


3126f 


3l32f 


3138f 


3145f 


3151f 


3158f 


3165f 


51750 


3178f 


3184f 




3191f 


3232f 


3233f 


3234f 


3235f 


3245f 


3253f 


3258f 


3264f 


3269f 


3276f 


3281f 


3288f 


3293f 


3299f 




3304f 


331 If 


332 If 


3329f 


3334f 


3340f 


3345f 


3352f 


33 5 7f 


5364f 


3369f 


3575f 


3380f 


3387f 


3397f 




3405f 


3410f 


3416f 


3421 f 


3428f 


3433f 


i440f 


344 5f 


3452f 


3462f 


3470f 


3475f 


34eif 


3486f 


3495f 




3498f 


3505f 


351 Of 


3517f 


3526f 


3534# 


3539f 


3545f 


3550f 


3557f 


3562f 


3570f 


3577f 


3584f 


3591 f 




3596f 


3604f 


3609f 


364 7f 


3648f 


364 Tf 


3650f 


5o5of 


30o4f 


3669f 


3675f 


3680f 


3687f 


3699f 


3707f 




57} 2» 


3718f 


3723f 


3729f 


3734f 


3745f 


375 3f 


3758f 


3765f 


3771f 


3786# 


3792f 


3802f 


3830f 


3838f 




3843f 


3849f 


3856f 


3868f 


3876f 


3886f 


3906f 


391 2f 


391 6f 


3960f 


3961f 


3962f 


3963 


3964f 


3965 




3980f 


3981 f 


3982f 


3983f 


3992f 


401 2f 


4013f 


AOUf 


4015f 


4024f 


4025f 


4026f 


4027f 


4038f 


4039f 




4040f 


404 If 


4049f 


4050f 


4051f 


4052f 


A060f 


A061f 


4062f 


4063f 


4069f 


4074f 


4075f 


4076f 


4077 




A078f 


4079 


4116f 


4117f 


4118f 


4119f 


U1270 


4128f 


4129f 


4130f 


4136f 


4U4f 


4149f 


4158f 


4163f 
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CROSS REFERENCE 


TABLE - 




41 7i# 


4178f 


4184f 


4212f 


/ O i 7 M 


y ^ 1 / Jl 
4£l4f 


4215f 




4286# 


4287f 


431 6f 


431 7f 


y 7 1 o M 

431 8f 


4319f 


4349f 




441 Of 


441 If 


4414f 


4415f 


/ y 4 y M 

4416f 


/ / i 7 

44 1 7 


4418f 




4446 


4447 


4448 


4450f 


/ y c 4 

4451 


y / CO 

4452 


4453 




4487 


y y DO 

4488 


4490f 


4508f 




/CI Ail 

451 Uf 




NSGNLS 


1# 


3 i9f 












NSGNSU 


1# 


31 9f 










201 5f 


nSGNTA 


^0 


31 9f 


493f 


51 2f 


4 A77m 


1V9Bf 




231 Of 


23250 


2344f 


Zyl4# 


360Bf 


3801 f 


nSGNTE 


If 


V 4 A M 

31 9f 


21^2* 


2J7M 


294o# 


3638f 


3821 f 


RSHAPT 


If 


T4 AM 

31 9f 


365f 










nSHNAP 


If 


T 4 A M 

31 9f 


365f 


404 






I084f 


NSINCR 


If 


T 1 Am 

31 9f 


322f 


484f 


C AX. M 


1 AXC Jl 

1065f 




204 7f 


^AC C M 


2064f 


2070f 




OAdCil 

2085f 


2094f 




2l54f 


^4 d. C M 

2165f 


2170f 


2192f 


1 M 

2211f 


O OOT Jl 

22250 


2248f 






^7 y ^M 

234 2f 


2343f 


2345f 


2378f 




2386f 




^ y 7T M 


^y 07 M 

2483f 


2491f 


2500f 


^^C AO Jl 

2508f 


OC1 / « 

2514f 


2525f 




2629f 


TDm 

2638f 


265 7f 


2666f 


7C Jl 

26r5f 


ox OA Jl 

2680f 


2698* 




281 3f 


282 If 


2S27M 


2K2» 


283Vf 


007/ Jl 


2889f 




2985f 


2993f 


2999f 


3006f 


TA1 1 M 

3onf 


TAOOJI 

30cVf 


3038f 




T4 


T1 AOm 

3108f 


3113# 


3119f 


T1 

3126f 


TI TOJI 

31 32f 


3138f 




3232f 


Y'^y Cm 

324 5f 


3253f 


3258f 


TOX/ Jl 

3264f 


TOiLOil 

326Vf 


3276f 




3334# 


TT ' AM 

33«tOf 


3345f 


3352f 


TTC7« 

335 rf 


TTAZil 

3364f 


3369f 




3428* 


3433f 


3440f 


3445f 


T/ COJI 

3452f 


34o2f 


3470f 




352o# 


35j4f 


3539f 


3545f 




TCC7JI 

333f f 


3562f 




3639f 


364 7f 


3656f 


3664f 


TX.AOJI 

366Vf 


T^7CJI 

360f 


3680f 






j/^5jf 


3758f 


3765f 


3f f 1* 


3f Oof 


3792f 




3oOOf 


JO/^Of 


3886f 


3906f 


T01 3JI 

3Vlcf 


3V10f 


395 If 




40O(lf 


4lK>yf 


4078f 


4116f 




4136f 


4144f 








4284f 


4316f 


lxlqm 




4369f 


RSIOSE 


If 


31 Vf 












nSLDRO 


If 


31 Vf 


2267M 


2281f 


CJvr0 


OiLABif 


26220 




If 


T1 Oil 

31 yf 














If 


Ti Oil 

31 Vf 












nsncLO 


if 


31 Tf 














If 


31 Vf 












Pt$POP 


If 


31 W 


493« 


51 2f 


IVr rf 


lOQBil 
IVVOf 


2015* 


2253* 


229of 


231 Of 


2S23M 


9TZ/.il 

2j44f 


001 Z Jl 

2V14f 


3608f 


PtSPfilN 


If 


3iyf 


wm 


1244# 


9AT1 il 

203 If 


2043f 


2137f 


N$PUSH 


If 


T1 Oil 

31 yf 


122H 


484f 


3UOf 


1O70il 

\yr cm 


1995* 


215Hf 


2c4of 


2262M 


230&r 


0T01 il 


cih£0 


2343 




TOC1 m 
59i\m 


TOCO 


4437f 


4478f 








HSPUT 


If 


31 Vf 


1080f 


1244f 


c031f 


OA/. T« 

^U43f 


2^370 


WPUT1 


1 m 
If 


T1 0« 

31 Vf 


1080# 


1081 


1 AAO 

lUo^ 


l£44f 


1245 




213o 


01 TO 

<:13V 


2U0 


2141 


01 CQil 


01 iLA 

clou 


2161 




2208 


220V 


2220# 


2221 




ccof 


2288 




44 1 5 


4410 












mRADl 


If 


T1 Oil 

31 Vf 


4440# 


4445f 


445Uf 


y y oy j| 




mRBRO 


If 


T1 Oil 

31 Vf 












mRHRO 


If 


Ti Qm 
31 Vf 


2267» 


2269 








WSSETS 


1 « 


3 1 yit 


322f 


484f 






1995f 




2154f 


2248f 


22t2» 


2308« 


2321f 


234 3# 


2379f 


HSSTAR 


If 


31 9# 












HSSVC 


If 


31 9f 


1065f 


1080f 


1084 


1244f 


1248 




2054f 


2055 


2069f 


2070 


208^0 


2085 


2099f 




2148 


2159f 


2165 


2169f 


2170 


2189f 


2192 



6 11 

SEC 

MACRO NAMES 



4221f 


4244f 


4245f 


4246f 


424 7f 


4256f 


4284f 


4285f 


4350f 


4351f 


4552f 


4359f 


4369f 


4374f 


4408f 


4409f 


4419 


4422f 


4437f 


4440f 


4441 


4442 


4443 


4445f 


4454 


44S6f 


4478f 


4481f 


4482f 


4484f 


4485 


4486 


2054f 


2069f 


2084f 


2099f 


2114f 


2^280 


2147f 


2169f 


391 5f 


4421f 


4456f 


4457 


4490f 


4491 






3951f 
















1248f 


1972f 


1995f 


1999f 


2011* 


201 6f 


2026f 


2035f 


2100f 


2108f 


2115f 


21 22f 


2129f 


2135f 


2143f 


2148f 


22620 


2268f 


22S20 


22900 


22970 


2308f 


2311f 


252^0 


25950 


2400f 


2419f 


2429f 


21.570 


2446# 


2455f 


2464f 


2534f 


2543f 


2549f 


2559f 


25990 


2609f 


261 7f 


26250 


2705f 


271 8f 


27290 


2753f 


27620 


277}0 


27760 


2804f 


2906f 


291 5f 


2948f 


2949f 


29560 


2964# 


2974f 


2979f 


3046f 


305 If 


305 7f 


3066f 


50720 


3080f 


3085f 


3093f 


3145f 


3151f 


3158f 


3165f 


3173* 


3178f 


3184f 


3191f 


3281f 


3288f 


3293f 


3299f 


3304f 


331 If 


3321 f 


3329f 


3375f 


3380f 


3387f 


3397f 


3405f 


341 Of 


3416f 


3421f 


3475f 


3481f 


3486f 


3493f 


3498f 


3505f 


3510f 


351 7f 


3570f 


3577f 


3584f 


3591f 


3596f 


3604« 


3609f 


3638 f 


3687# 


3699f 


17070 


371 2f 


3718* 


5725M 


57290 


3734f 


3802f 


3821 f 


59220 


3830f 


3838f 


3843f 


3d49f 


3856f 


3952f 


3964f 


59600 


3992f 


401 2f 


4024f 


4038f 


4049f 


4149f 


4158f 


4163f 


4171f 


4l78f 


4184f 


^>2^20 


422 If 


4374f 


4408f 


4418f 


kk220 


4437f 


4478f 






2054f 


2069f 


2084f 


20990 


2114f 


2128f 


2147# 


2169f 


3801 f 


391 5f 


4421f 


4456f 


4490f 


4507f 






2159f 


2189f 


2204f 


22200 


3960f 


4074f 


4414f 




201 If 


2026f 


2064f 


20790 


2094f 


2108# 


21220 


2135f 


2378f 


2379 


2948f 


2949 


3638f 


3639 


3821 f 


3822 


2159f 


2l89f 


2204f 


2220f 


2286f 


3960# 


4074f 


4414# 


1246 


2031f 


2032 


2033 


2043f 


2044 


2045 


2137f 


2162 


2163 


2189f 


2190 


2204f 


2205 


2206 


2207 


2289 


3960f 


3961 


3962 


4074f 


4075 


4076 


4414# 


201 If 


2026f 


2064f 


^ A7A m 

20790 


*>AAy M 

2094f 


^4 AA M 

2108# 


^4 ^^M 

2i220 


01 TC Jl 

2135f 


2949f 


3639f 


3822f 


3952f 


4437f 


4478# 






1998f 


1999 


201 5f 


2016 


2031 f 


2035 


20h3« 


2047 


2100 


2114f 


2115 


2128f 


2129 


2137f 


2143 


2147f 


2204f 


2211 


22200 


2223 


22670 


2268 


2281 f 


2232 
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H 11 
MACRO NAMES 



SEQ 137 



NSTLAB 



WTSTL 





2c90 


^£76* 


ccyf 


371 A* 

£3 1 


371 1 
£3 1 1 


3737Jf 
( ,C J* 


373Z. 
C J£H 


JHH* 


£3H 3 


£300* 


3 70C* 
£373* 

3C3C 
£ J£3 




3Z,10 
cH 1 7 


3Z.30 

£H£7 






<:h33 


<:hoh 


3Z.77 


3Z.fl7 


cH7 * 


3C0ft 


3Cft7* 
CJvf * 


3cnB 


3C 1i 

£3 1 H 


3C7i* 
C 33H* 


3Ci7* 
c 3H J* 


9CiO* 
£3H7* 








£0U7 


OAI 7 
£C)1 f 


3/;33ir 


co<:3 


COC7* 


CO JO* 


£ 03 f 


cOoO* 


3A7C* 
£0f 3* 


3ABft* 
cOOU* 


9A0A 
£070 


37nc* 


Q 

Cf\0 


cfirf 


£'33 


CfOC^ 


3771 * 
CI f 1* 


£f f 0* 


3 A OA 


3ft1 7* 
cO 1 3* 


3fl31 * 


3A37* 
cOC 1 * 


3A73* 
£03£* 


3 A 70* 
£037* 


3A7Z. 
£0f H 


9AA0 
£007 


900A 
£7UO 




0Q1 C 


£736 


£70*»* 




3070* 

£7f 7* 


£703* 


3007* 

£77 J* 


3000* 
C 777* 


7ftftA* 


7ni 1 * 


7090 

JU£7 


7ft7A* 
3u JO* 


7ft^A* 
JUHO* 


70C1* 
JUJ 1* 




3Uoo# 


3U' £* 


3UoU* 


3U03* 


7ftOX* 
3U73* 


71 ftft* 
3 1 UU* 


71 ftA* 


?1 1 7* 

J 1 1 J* 


71 1 <J* 
J 1 1 7* 


^1 9A* 

J 1 cO* 


71 79* 

J 1 Jc* 


71 7A* 

J 1 JO* 


71iC* 

J 1 H J* 


71 CI* 

J 1 J 1 * 


31 5lV» 


T1 

3163* 


71 77if 

31 f 3* 


71 7Bi> 
31 tOK 


71 tLLM 
3 1 0*»* 


71 01* 

J 1 7 1* 


7373 
3£3£ 


3c H J* 


73'»7* 
Jt f J* 


J£ JO* 


79A4* 

JcOH* 


79A0* 

3£07* 


79 7A* 

JC 1 0* 


79A1* 
3£0 1 * 


79AA* 


3£t3* 


3cW* 


xxntm 


771 1 * 

33 1 1* 


7731 * 
JJ£ 1 * 


7730* 
33£7* 


777^* 
33 JH* 


X7.'«nji 


77iC* 

J JH J* 


77C9* 

J J J£* 


77C7* 


77Ai* 

J JO** 


7XA0* 
3307* 


7^7C* 

J Jf J* 


J JOW* 






7Z AC* 

3hU3* 


7Z1 Ai> 
3*» 1 U* 


XL 1 A* 
3*» 1 0* 


7Z,31 * 
3H£ 1 * 


7i3A* 
3H£0* 


7/.77* 
jH J J* 


7// A* 


JHH J* 


7iC9* 

JH J£* 


7iA9* 
3H0£* 


7i 70* 
3H f U* 


7i7C* 

JH f 3* 


TiAl* 
3hO I* 






7Z,0flii 


33U3* 


7C1 ft* 
33 1 U* 


7C1 7* 

J J 1 f * 


7C9A* 


J J JH W 


J J JTW 




?550* 


?557* 


?569* 

J JO£» 


?570* 

J J f w* 


?577* 

J J r r ff 






3370" 


30U«»* 


7AftA* 


7AftO 


JOH f 


^/>SA* 


^«^Ai* 


3669* 


?^75* 

JO f J* 


JOO\/ff 


7AB7* 

JOOf * 


3699* 


Jf Wf * 




171 Bit 
3r lO# 


7757* 


3. £7* 


777/ * 
3f 3«»* 


77iC* 
3f H3* 


77C7* 

jf ijff 


77CA* 

3 f JO* 


77AC* 

3 f 03* 


7771* 

Jf f 1 * 


Jf 00* 


^709* 

3f 7£* 


7801* 

JOU 1* 


7809 

30v£ 


78 7A* 

JO JV* 


3o30# 


30HJ* 


7BA0* 


3030* 


7AAA* 
3000* 


7A7A* 
50f 0* 


7flAA* 

JOOO* 


700A* 

J7UO* 


^019* 

J7 1 £* 


?01 ^* 

J7 1 J* 


?91A 

J7 1 0 


?0A0* 
J70V* 


J70H 


?98A 

J70V 


^999* 

J77£* 


•»U 1 c 


hUch 




Lt\LO 
■iU*7 


hUOw 


HW07* 


HVf H* 


if) 78 

HU f 0 


il 1 A 
H 1 1 0 


i197 

H 1 £ f 


il^l^ 
H 1 JO* 




iliO* 
* 1 *t7* 


il 58* 

H 1 JO* 


i163* 
H 1 OJ* 




Z.1 7a* 


•» 1 0*»* 


^919 

<»£ 1 £ 


A991* 
*££ 1* 


4244 


H£ JO* 


H£OH 


i^1A 
H J 1 0 


i?49 

H JH 7 


i?59* 

H J J7* 


H J07* 


H Jf ■!* 


i408 

HHWO 


iili* 
HH 1 H* 


Z.Z.1 A 




HHcc 














9055* 












im 




1 U03w 


IvOH* 


19AA* 


1000* 

1 777* 


901 A* 
£w 1 0* 


90^S# 


CWHf * 


9070* 

£vf W* 


9085* 

£ WO J* 


9100* 

£ 1 WV* 


9115* 

£ 1 1 J* 


9199* 

£ 1 £7* 


91 Z, Til 




31 

£ 1 03* 


31 7ft* 
£ 1 fVH 


3109* 

£ I7£* 


991 1* 

£c 1 1* 


9997* 
£££J* 


99AA* 

££00* 


99fl9* 

££w£* 


9900* 

C£7V/* 


9997* 

££7f * 


9^1 1* 

£ J 1 1 * 


?39i* 


?3i5* 

£ J** J* 


9UA* 

£ JOO* 






3/,10* 
£•» 1 7* 


£«»£7* 


3^77* 
£H3f * 


£HHO* 


9iCC* 
£H J J* 


cHOH* 


£H f J* 


£HOJ* 


CH7 1 * 


9500* 

£ Jww* 


9508* 

£ JVO* 


9S14* 

£ J IH* 


?5?S* 

£ JC J* 






£3«»7* 


3CC0* 
£337* 


3 COO* 
£377* 


9AftO* 
£0U7* 

f f 1 * 

9070* 
£7f 7* 


9A1 7* 

£0 1 » * 


9A97* 

£0£ J* 


9A90* 

£0£7* 


£0 JO* 


9A57* 

£0 J f * 


£000* 


967S* 

£Of J* 


96&A* 

£OOV* 


9698* 

£U70* 




?71 B« 


37 30* 
£f £7* 


37C7* 
Cf 33* 


97A9* 

£ f 0£* 


977A* 

£f f 0* 


9A0i* 

tOvH* 


9A1 X* 

c 0 1 J* 


9A91* 

£0£ 1* 


9897* 

£0£ f * 


9879* 

£0 J£* 


98^9* 

£OJ7* 


987i* 

£Or H* 


9889* 

£007* 




?01 Cil 


£730* 


30A^* 


907A* 
£7f •»* 


90flC* 

£70 J* 


9007* 

£77 J* 


9090* 

£ 7 77" 


JvVO* 


701 1* 

Jv 1 1 * 


?099* 

JW£7* 


7078* 

JW JO* 


jM'^Qm 


%51* 

JVJ 1 * 




3U0O# 


7073* 
3Uf £* 


7ftAn* 
3vOv* 


7nRC* 

3U03* 


7007* 

3V/7j* 


7100* 

J 1 vW* 


71 OA* 

J 1 I/O* 


?1 1^* 

J 1 i J* 


?119* 


J 1 £0* 


?1 ■>?* 
J 1 J£* 


31 38* 

J I JO* 


31i5* 

J 1 "t Jff 


3151* 

J 1 J 1 * 


T1 Cflif 


3 1 03w 


71 77* 

3 1 1 3* 


71 7A* 

3 1 f O* 


71 AA* 

3 1 OH* 


7101* 

J 1 7 1 * 


?9??# 

J£ J£* 


?9iC* 

J£H 1* 


??c?* 

J£ J J* 


JC JO^ 


J£OH •* 


J£OT" 


3976* 

J£ f U* 


JCO 1 ff 


3?88* 


T70TJI 


3cy7W 


77A/* 


771 1* 

J J 1 1 * 


7791* 

33£ 1 * 


3j£7* 


JJ JH* 


77Aft* 
J JHl/* 


J /H ^* 




??57* 

jjji * 


J JO^* 


3369* 

J JV7* 


3375* 

jj' jff 


3380* 

J J^V* 




jjyf If 


7/AC* 


7Ain* 

jH 1 U* 


7A1 A* 
3H 1 0* 


7^91* 

3H£ 1 * 


7i9R* 

JH£0* 


JH J >* 


^iiO* 

JHHW* 




.i59* 

-yH J£* 


^A9* 

JHO£* 


3470* 

J*t f W* 


J^ 1 Jff 


3i81* 

J"tO 1 * 




7^074 

3'»TJ# 


7A0R* 




7C1ft* 

J J 1 v* 


^C1 7* 


JJCO* 


J J JH* 


J J Jrm 


?5i5* 


?550* 

J J J V* 


3557* 

J J J r ff 


356?* 

J JO£* 


3570* 

J J r W 


3577* 

J J • * ff 


330*»w 


33T 1 w 


7C0A* 
33 70* 


30UH* 


7AftQ* 

30U7* 


30H f * 


JO JO* 


JDOH* 


J007* 


?A75* 

JO' J* 


7Aao* 

JOOV* 


?A87* 

JOOf * 


3699* 

JO 77* 


3707* 

Jf Wf * 


Jr 1 Cff 


771 flif 
3f 1 0# 


77P7JI 


7730* 

3f £7* 


777A* 
3' jH* 


77iC* 

3' H 3* 


77C7>» 


77CA* 

Jf JO* 


J f D J* 




Jf 00* 


?799* 

Jf 7£* 


7B09* 
JOW£* 


^30* 


3838* 

JOJO* 


JO"l Jff 


30*»T» 


7fi^Air 
3030W 


7RAB* 
3000* 


7A7A* 
30r O* 


7AAA* 
3000* 


7QftA* 

37UO* 


701 9* 

J7 1 £* 


701<!Jf 
J7 1 0* 




XORO* 

J70U* 


J77£* 


iOl9* 

HW 1 £* 


iO?i* 

■♦W£H* 


i038* 

HW JO* 


■t^FI Tff 






"»vf O* 


•I 1 lO* 


A 197* 

■t 1 £r * 


H 1 JO* 


H 1 HH* 


H 1 *t TIF 


■f 1 JO* 


■» 1 0 J* 


i171* 

■fir Iff 


i178* 

*t 1 r Off 


i184* 


i?1?* 
■»C 1 £* 


4??1* 

1 ff 






•»£OH* 


Hj 1 O* 


H JH7* 


H J J7* 


H J07* 


&^7i* 

H Jr H* 


HH wo* 


iilR* 

1 Off 


LL77M 










1 ji 


3 ■ 7* 


lOAC* 

1 U03* 


1 UOH* 


19Aft* 


1000* 
1 777* 


901 A^ 

CM 1 0* 


£v J J* 


90i7* 

C J'^f * 


9055* 

£ VJ J* 


t Vr Vff 


9085* 

£ wo J* 


910A* 

£ 1 WW* 


C 1 1 Jff 


C 1 CTff 


C 1*1 J* 


71 AA* 
c 1 How 


91 AC* 

£ 1 03* 


917n* 

£ 1 f U* 


9109* 

£ 1 7£* 


991 1* 

££ 1 1* 


999X# 

£££ J* 


99Afl« 

££00* 


99)19* 

££0£* 


9990* 

££7v* 


CCwf ff 


931 1* 

£ J 1 1 * 


?3?4* 

£ J£^* 


C J"t Jff 


C -XJOff 


cyijH 




3A10* 

£•» 1 7* 


9 A 90* 

£H£7* 


9^77* 

£*l3f * 


£HHO* 


9iCC# 

£H J J* 


£HOH* 


£ f J" 


£*0 J* 


4. T 1 ff 


9500* 

£ JWV* 


9508* 

£ JWO* 


c J i^ff 


C JC Jff 




9^^7# 
c3«»3# 


£317* 


9CC0* 

£337* 


9 COO* 

£377* 


9Ano* 

£OW7* 


9^1 7# 

£0 1 f * 


9A9^ 

£0£ J* 


9A90* 

£0£7* 


cO JO* 


9A57* 

£0 J f * 


£OvO* 


9675* 

£Of J* 


COOVff 


COToff 




771 Bit 


3790* 
£ f £7* 


97C7* 


97A9* 

£f 0£* 


9771* 
cf f •* 


977A* 

£ ' f 0* 


£OUH* 


9R1 \M 

CO 1 J* 


9891* 

£0£ - * 


9897* 

£0£ f * 


98^9* 

£OJ£* 


9839* 


CO' "t* 


coo Tff 


CrvOIr 




£730* 


£70*»* 


9071* 

£7f H* 


9070tf 

£7f 7* 


£70 J* 


£77 J* 


9999* 


JWV* 


?01 1* 

Jv 1 1 * 


3099* 

JW£7* 


3038* 

JV JOff 


J\^Off 


Jw J 1 * 




3UOOW 


7079* 
3Uf £* 


3vOw* 


7nAC* 

3v03* 


700^ 
3w7j* 


si 00* 

J 1 uv* 


J 1 vo* 


J 1 1 


?1 19* 

Jit wwf 


J • COff 


313?* 

J 1 J£* 


J 1 JOff 


3145# 

J 1 ^ Jff 


3151* 

J 1 J 1 ff 


J 1 jOK 


3 I03W 


7177* 

3 1 f J* 


71 7A* 
3 1 ' O* 


71 Ai* 

3 1 OH* 


7101* 
3171* 


J£J£* 


^9iC* 

J£H J* 




?95B* 

J£ JO* 


JCO*tff 


3969* 

J£D7* 


JC r Off 


3?81* 

JCO 1 ff 


JCOOff 


3c7J* 


7900« 


770^* 
33U«i* 


771 1* 

33 1 1 * 


7791ir 

3J£ 1* 


7790ir 

33£7* 


^t')(i* 
JJJH* 


7 siO* 

J JHV* 




?^S9* 

J J JC* 


j^jt ff 


33M4 


J JOTff 


3375* 

JJ' Jff 


3380* 

J Jv\^ 




7707# 


3"»v3* 


7A10* 
Jt 1 V* 


7i1A* 

3H 1 0* 


JH£ 1* 


JH£0* 


?i^^ 
JH J J* 




^445* 


345?* 


346?* 


3470* 

J^ f Wff 


3475J 

J^ ' Jff 


3481* 

1 ff 




XLQXM 

3* 7 J* 


7^0A* 
3"»70* 


7C0C* 

33w3* 


33 I w* 


^C17* 

J J 1 f * 


^S9<^J 

J J£0* 


?C^* 

JJJH* 




Y545* 


3550# 


3557* 

J J J ' ff 


3562* 


3570* 


3577* 




7CQ1ir 
337 1* 


3370* 


7^0 A* 


7Ano* 

30U7* 


30Hf * 


JOJO* 


JOOH* 


3669* 




-/VOVff 


3687* 

JOO' ff 


3699* 


3707* 

Jf W' ff 


371?* 

J' 1 C 


Jf low 


3f C JW 


^790ir 

Jf £7* 


Jf J*t* 


Jr H J* 


3753* 


?7C8* 

Jf JO* 


^7&CJ 

Jf OJ* 


?771# 


jr qm* 


^79?* 

Jf TCff 


3802* 


3830* 

JOJVff 


3838* 

JO^Off 


3843* 

Jw^ 




711 CM 
303D* 


3000* 


JOr O* 


7BBM 
JOOD* 


J7UO* 


^Q19# 

jy 1 c* 


J7 10* 






3992* 


401?* 


LCOLIt 

^WC^ff 


4038* 


4049* 






HVf O* 


£11A* 
•1 1 lO* 


£197ir 

H 1 Ctlf 


£1 

H 1 JO* 


£1£b* 

H 1 HH* 


H 1 H7* 


1 




4171# 

H 1 r Iff 


^ 1 » Off 


4184# 

^ 1 J^ff 


4?12* 

HC ■ Cff 


4??1* 

~CC 1 ff 




*»C JO* 


1£0'»* 


Hj 1 O* 


H JH7* 


H J J7* 


4^A0* 
H J07* 


H Jf H* 




■t ■! 1 Off 


44??* 




2420 


?421 


?422 

c~cc 


^m 
1 w 


710# 


1 W*f* 


il'? 
•f 1 -J 


HO J* 


iAC 
HOJ 


HOO 


4A7 

HOf 


■two 


469 


470 

■f f V 


?419* 

CH 1 Tff 




?A70 
c*i3w 


9A71 

£•» J 1 


3^79 
£«|3£ 


cHHO* 


£HHf 

2483* 


cHHO 


9iiO 

£HH7 




?457 


?458 


2464* 


?465 


?466 


2467 


2473* 


2474 


2475 


2476 


2484 


2485 


2486 


2491* 


2492 


2493 


2494 


2500* 


2501 


2502 


2503 


2514* 


2515 


2516 


2517 


2525* 


2526 


2527 


2528 


2559* 


2560 


2561 


2562 


2617* 


2618 


2619 


2620 


2657* 


2658 


2659 


2660 


2698* 


2699 


2700 


2701 


2718* 


2719 


2720 


2721 


2729# 


2730 


2731 


2752 


2753* 


2754 


2755 


2756 


2804* 


2805 


2806 


2807 


2874* 


2875 


2876 


2877 


2889# 


2890 


2891 


2892 


2906* 


2907 


2908 


2909 


2956* 


2957 


2958 


2959 
3982 


3029* 


3C30 


3031 


3032 


3232* 


3233 


3234 


3235 


3647* 


3648 


3649 


3650 


3980* 


3981 


3983 


4012* 
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CROSS REFERENCE TABLE - 





L(\^ "K 




HU 1 J 




4025 


4026 


4027 




A3' ^ 


HUO 1 




■tV/VJ J 


41 16# 

■til 


4117 


4118 










4247 


4284# 


4285 
4440# 




•» J? 1 


HjjC 






4410 


4411 


n#A r c 


1 w 
















1 M 
















1 # 












2188 


PR INTR 


1 w 




?030 

C V J V 


2042 


2136 


2158 


PR TMTF 


1 w 




1079 


124^ 


3959 


4073 


4413 


Dp TMT^ 


iir 


^I9ir 












PR TMTV 


1 w 


^I9ir 














1 w 


^I9ir 

J 1 yw 












Rf ADFF 


1 w 


^I9ir 












RFI AH^ 


1 ^ 


^19# 








2621 




cc rpp f 


iir 






2506 


2607 




1 V t I* 


1 w 


31 9# 


2285 










^1 A^H 


14 

1 W 


3i9ir 












STARS 


1* 


31 9# 












SVC 

•JVC 


1 W 


31 7# 


318 










XFER 




31 9# 












XFERF 




31 9# 












XFERT 


1# 


31 9# 
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ERRORS DETECTED: 



000 



CZTRAC .8IN/I . CZTRAC . SEQ/CRF/SOL/NL : T0C=SVC34R.HL8.CZTRAC.P11 
RUN-TIME: 16 21 2 SECONDS 
RUN-T1«E RATIO: 64/39=1.6 
CORE USED: 16K (31 PACES) 
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MACRO NAMES 

4038# 4039 

4119 4127# 

4286 4287 

4445« 4450« 



4040 4041 

4128 4129 

4316* 4317 

4481* 4482 



4049« 4050 

4130 4212# 

4318 4319 

4484* 4509 



4051 4052 

4213 4214 

4349# 4350 
4510 



2203 



2219 



